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BUSINESS APPLICATIONS 



THE FORTH SOURCE 



MVP-FORTH - A Public Domain Product 

MVP Forth is fig-FORTH modified by 100% of the FORTH-79 Standard 
Required Word Set plus the vocabulary for the instructional book Starting 
FORTH. Editor, assembler and utilities are included. 

Transportability of progranns is assured since the kernal of MVP-FORTH 
IS the same for all computers to the machine dependent READ/WRITE 
instructions. 

Modification and extension {up or down) is simplified by having the 
source code and through the use of MVP-FORTH Programming Aids and 
Cross Compilers. 

The CP/M® are supplied on 8", SS/SD, IBM 3740, format disks. The 
include a track and sector calculation array for down loading to other 
sizes and formats. Other disks are machine specific. 

All About FORTH is an annotated glossary of MVP-FORTH words as well 
as other dialects, It is in 8080 code, other MVP-FORTH implementations 
include documentation of the differences between it and other CPU's and 
computers. 



MVP-FORTH PRODUCTS for CP/M® IBM-PC® and Apple® 

□ MVP-FORTH Programmer's Kit including disk with 
documentation, ALL ABOUT FORTH, and STARTING 
FORTH. Assembly source listing versions $100 

□ MVP-FORTH Disk with documentation Assembly source 
listing version $75 

□ MVP-FORTH Cross Compiler with MVP-FORTH source in 
FORTH $300 

lJ MVP-FORTH Programming Aids for decompiling, 

callfinding, and translating. Specify computer $150 

□ MVP-FORTH Fast Floating Point for Apple 11/11 + on board 
with 9511 math chip. Requires MVP-FORTH for Apple $400 

□ MVP-FORTH Assembly Source Printed listing. $20 

n ALL ABOUT FORTH by Haydon MVP-FORTH reference, 
plus fig-FORTH and FORTH-79. $20 

• ★★MVP-FORTH operates under a variety of CPU s, computers, 
and operating systems. Specify your computer and operating 
system. CP/M supplied on 8", SS/SD. 3740 format. •★• 



FORTH DISKS 

FORTH with editor, assembler, and 

□ APPLE 11/11+ by 
MicroMotion $1 00 

□ APPLE II by Kuntze $90 

□ ATARI® valFORTH $50 

□ CP/M® by MicroMotion $100 

□ CROMEMCO® by Inner 
Access $100 

C HP-85 by Lange $90 

□ IBM-PC® by Laboratory 
Microsystems $100 

G NOVA by CCI, quad 

floppy $100 



manual. 

□ PET® by FSS $90 

□ TRS-eO/l® by Nautilus 
Systems $90 

□ 6800 by Talbot 
Microsystems $100 

□ 6809 by Talbot 
Microsystems $100 

□ Z80 by Laboratory 
Microsystems $50 

□ 8066/66 by Laboratory 
Microsystems $1 00 

□ VIC FORTH byHES, VIC20 
cartridge $60 



□ 



Enhanced FORTH with: F-Floating Point, G-Graphics. T-Tutonal. 
S-Stand Alone, M-Math Chip Support. MT-Multi-Tasking, X-Other 
Extras. 79-FORTH-79. 



C APPLE 11/11+ by Micro- 
Motion, F. G. & 79 $140 

□ ATARI by 

PNS, F. G. & X, $90 
n CP/M by MicroMotion, 

F&79 $140 

□ Apple 11/11 + , GraFORTH by 
Insoft, stand alone 
graphics $75 

□ H89/Z89 by Haydon, 
T & S $250 

□ H69/Z69 by Haydon. T $175 
IBM-PC, PolyFORTH by 
FORTH Inc , 

F, G. S. M, MT, & X $300 

□ Multi-Tasking FORTH by 

Shaw Labs, CP/M, 
X & 79 $395 



□ 



□ TRS-80/1 or III by Miller 
Microcomputer Services. 

F. X,&79 $130 

□ TUTORIAL by Laxen & 
Harris, CP/M with a copy of 
Starting FORTH $95 

□ Extensions for Laboratory 
Microsystems IBM,Z80. and 
8086 

□ Software Floating 
Point 

□ 8087 Support 
(IBM-PC or 8086) 

n 951 1 Support 
{Z80 or 8086) 

□ Color Graphics 
(IBM-PC) 

L J Data Base 
Management 



$100 
$100 
$100 
$100 
$200 

CROSS COMPILERS Allow extending, modifying and compiling for 
speed and memory savings, can also produce ROMable code. •Requires 
FORTH disk 

[.\ CP/M $300 LJ IBM* $300 

! H89/Z89 $300 □ 8086* $300 

L] TRS-80/1 $300 E. J Z80« $3Q0 

\: Northstar'*-' $300 U Apple 11/11+ S300 

I ] fig-FORTH Programming Aids for decompiling, callfinding. 
and translating. Specify CP/M, IBM-PC, 8086, Z80, or 
Apple 11/11+ $150 



FORTH MANUALS. GUIDES & DOCUMENTS 

□ ALL ABOUT FORTH by 

Haydon. An annotated 
glossary of common FORTH 
words, MVP-FORTH 
reference. $20 

□ And So FORTH by Huang. A 
college level text, $25 

□ FORTH Encyclopedia by 
Derick & Baker, A complete 
programmer's manual to fig- 
FORTH with FORTH-79 
references. Flow charted. 
2nd Ed. $25 

□ Starting FORTH by Brodie. 
Best instructional manual 



$16 



□ 



□ 
□ 



□ 

U 



$20 
$25 



$40 
$25 



$25 □ 

$25 

$25 
$25 

$20 



AIM FORTH User's 
Manual $12 
APPLE User's Manual 
MicroMotion $20 
TRS-80 User's Manual, 
MMSFORTH $19 
METAFORTH by Cassady, 
Meta compiler in 8080 
code $30 
Systems Guide to fig- 
FORTH $25 
Caltech FORTH Manual $12 
Invitation to FORTH $20 
PDP-11 FORTH User's 
Manual $20 
CP/M User's Manual, 
MicroMotion 
FORTH-79 Standard 
FORTH-79 Standard 
Conversion 
Tiny Pascal in 
fig-FORTH 

NOVA fig-FORTH by CCI 

with editor, assembler, and 
utilities $15 
□ MVP-FORTH Source Listings 

□ IBM-PC □ CP/M 

□ Apple ll/IH- 



□ 



□ 



$20 
$15 

$10 

$10 



$20 



available, (soft cover) 

□ Starting FORTH (hard 
cover) 

[J 1980 FORML Proc. 

1961 FORML Proc. 
2 Vol 

1962 FORML Proc. 
1961 Rochester FORTH 
Proc. 

□ 1962 Rochester FORTH 
Proc. 

Using FORTH 
A FORTH Primer 
Threaded Interpretive 
Languages 

□ Installation Manual lor fig-FORTH, contains FORTH 
model, glossary, memory map and instructions 

Source Listings of fig-FORTH, for specific CPU's and computers. The 
Installation Manual is required for implementation. Each $1 5 

[] 1802 6502 6800 □ AlphaMicro 

□ 8080 □ 8086/88 □ 9900 □ APPLE II 

□ PACE □ 6809 □ NOVA □ PDP-1 1/LSI-1 1 
11 68000 □ Eclipse □ VAX 

Ordering Inlormatton: Check, Money Order (payable to MOUNTAIN VIEW PRESS, 
INC.), VISA, MasterCard or COD's accepted. No billing or unpaid PO's. California 
residents add sales tax Shipping costs tn US included in price. Foreign orders, pay 
in US funds on US bank, include (or handling and shipping by Air: $5 (or each item 
under $25, $10 for each ilem between $25 and $99 and $20 for each item over 
$100. Minimum order $10. All prices and products subject to change or withdrawal 
without notice. Single system and/or single user license agreement required on 
some products. 

DEALER & AUTHOR INQUIRIES INVITED 



$15 



MOUNTAIN VIEW PRESS, INC. 



PC BOX 4656 



MOUNTAIN VIEW, CA 94040 



(415)961-4103 
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Letters . . . 



Helpful Documentation 

Dear FIG, 

Your correspondent, Derek Vair, 
echoed my problems. I had recently 
tried to tread the same path. Mountain 
View press sorted me out very effi- 
ciently and courteously, even though 
by miscalculation I phoned them at 
3:00 a.m. one night. I cannot speak too 
highly of Glen Hayden's "All about 
FORTH," It is a work of meticulous 
scholarship and surely a must for all 
FORTH novices such as myself. 

Dennis A. Larder 
Saudi Arabia 



Another 14 2 

Dear FIG, 

I write to you on behalf of the TO- 
solution.' 

For more than two years I've pro- 
grammed instrumentation systems 
and microprocessors in FORTH. I 
have experienced a reluctance of my 
customers to accept FORTH, which 
stems to a great deal from the seeming- 
ly awkward notation of A @ B @ + C ! 
compared to C = A + B, which every- 
body is used to. And I really think that 
FORTH code would become clearer, if 
an explicit assignment operator like = 
would exist. 

We do have this operator, called TO 
by Bartholdi. Ever since reading his 
paper I have included the construct in- 
to my system, but I prefer to call the 
operator =; . Thus the above code 
reads A B + =: C. 

A, B and C are variables of the new 
datatype INTEGER. There have been 
discussions in F.D., whether INTEGERS 
ought to replace VARIABLES. I prefer to 
use both datatypes, each in the place 
where it fits best (i.e. makes code 
clearer). 

Judging by published programs in 
F.D. and the conference reports, many 
people seem to use TO. My experience 
with the TO or = : solution is so good 
that I wonder, why it is not considered 
for inclusion into the 1983 standard. 

Thank you for your efforts and for 
the good work being done by FIG. 

Wolf WejgQQrd 
Switzerland 



Importing Annnouncement 

Dear FIG, 

We have noticed among your corre- 
spondents various commercial ven- 
dors of FORTH hardware/software. As 
recent and enthusiastic converts, we 
would be interested in establishing 
contact with vendors to see if we can 
import and distribute various FORTH- 
oriented products in the U.K. Perhaps 
you could publish this letter so that 
interested vendors may contact us 
directly. 

A. WiiJiams 
Ledbury EJectronics Ltd. 
Unit 2, Little Marcie Lane 
Ledbury, Herefordshire HR8 2AU 



Don't Leave FIGs Hanging 

Dear FIG, 

The new editorial policy of Forth 
Dimensions of giving preference to 
FORTH-79 programs, and tutorials 
using FORTH-79 is very reasonable, 
but a little troublesome for those who 
have implemented FIG's 8080 model. 
I have recently implemented this 
model on a Swedish microcomputer 
and the implementation will be distri- 
buted to our club's 2,000 members 
within the coming month. I would like 
to make it easier for them to learn and 
use FORTH via Brodie's book and 
Forth Dimensions, so I should suggest 
an alternative vocabulary which 
defines FORTH-79 behavior in the 
necessary instances. Could you sug- 
gest a source for the information I 
need to construct this alternative 
vocabulary? 

A revision of the 8080 model has 
been in the works for at least a year. 
I assume that it will follow the 
FORTH-79 standard. If this version is 
soon to be released, it would be better 
for me to implement the new version 
and thus eliminate the conflict of 
definitions between fig-FORTH and 
FORTH-79. Can you tell me if the new 
8080 (Z80 ?] version will soon be 
released? 

Thank you for your help, on behalf 
of the ABC80 club. 

Dr. Robert John sen 
UppsaJa, Sweden 



Our officiaJ guide to conversion from 
the FIG mode] to JO-Standard is a docu- 
ment by Robert L. Smith called 
FORTH-79 Standard Conversion. It is 
available for $10.00 (U.S.J from Moun- 
tain View Press. 

We're not aware of any current move- 
ment on the part of the FORTH Interest 
Group towards a Standard revision of 
the modeJ. We feeJ that this is the pur- 
vue of the FORTH vendors. One such 
vendor, which not only offers a 79- 
Standard FORTH but has also placed it 
in the public domain, is Mountain View 
Press. —Editor 
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FORTH in Business Applications 

A Panel Discussion 



Moderated by John Hail 
4th Annua] 
FORTH National Convention 
October 9, 1982 
Transcribed from tape by- 
Ray Van de Walker 



John Hall, Moderator: Welcome to our 
panel discussion on Business Applica- 
tions. Our first panel member is Mitch 
Derick, a consultant with Concepta. He 
has a large FORTH business application 
that he would like to talk about. Our next 
panel member will be Dick Miller of 
Miller Microcomputer Services. He has 
some actual products and has been work- 
ing for quite a while with business ap- 
plications. Marvin Benedick, president 
of Soft-Tax, will be discussing his tax- 
preparation package. I chose him 
because he has learned FORTH, pro- 
duced a product, and has apparently 
found FORTH to be perfect for his ap- 
plication. Fourth on the panel is Charles 
Moore, the inventor of FORTH, who will 
be asking the question, "Is FORTH really 
good for business applications?" 

Mr. Derick? 
Derick: I'd like to talk about a large 
business application but first I think that 
I should tell you something about 
our situation. I've been working with 
FORTH for 3V2 or 4 years. We got into 
FORTH slowly at first but now we use 
only FORTH. We've worked for a com- 
pany called Abacus 11 for the last two 
years. We've done everything from 
systems analysis down to the program- 
ming, testing, and even some mainte- 
nance, because this is a long project. 

The project is a fault-tolerant computer 
system, both hardware and software, to 
be installed in fast-food restaurants. The 
first restaurant that we are aiming for is 
McDonalds, so we are trying to satisfy a 
big, sophisticated market. As a result, 
we've produced a big, sophisticated 
product. 

In this system everything is written in 
FORTH — the operating system, the 
fault-tolerant code, the utilities, the data 



base and the applications. The system 
has two basic functions. The first is the 
point-of-sale portion which is what vou 
see the clerk using to enter your order. 
The point-of-sale portion is used to han- 
dle the on-line functions such as cash, 
coupons, gift-certificates, what products 
are sold, and any other things that nor- 
mally occur up-front during a sales 
transaction. 

The data from the point-of-sale func- 
tion is used by the other major portion 
of the system, the manager function. The 
manager function is a very friendly in- 
terface between the managers, who are 
unsophisticated users, and the com- 
puter's applications. In real-life, the user 
may be a 14 or 15 year-old kid who was 
told to do something by the manager. 

So what we have is a pressure-sensitive 
transparent touch-screen over the face of 
the CRT which displays standard 
McDonald's forms, with which the users 
are supposed to be familiar. 

The total system handles inventory, 
usage of ingredients, wasted materials (a 
cook may drop a hamburger), shipments 
in, shipments out, transfers, ordering 
projections (How much did the store use 
last week? How much last year at this 
time of the year?), a very comprehensive 
statistical package for the mother cor- 
poration (McDonalds tracks all materials 
to four decimal places, even including 
the ketchup usage) and personnel (Who 
works in the store. Is he under 16 years 
old? Is he a high-school graduate? What 
skills does he have?). All of that informa- 
tion is necessary for crew scheduling 
which can be a major problem since the 
average store has about 300 employees, 
mostly part-time. 

As you can imagine there's a definite 
need in the marketplace for this product. 
The problem with similar products in the 
past was simply that the computers 
didn't work. By coming into the market- 
place with a fault-tolerant system, we 
should do quite well. 

The total package consists of about 50 
applications, all written in FORTH. This 
size of project is significant compared 
with some others that I've seen. I sat 
down and figured it out and over the last 
2V2 years we've written roughly 2500 



screens of code. From the standpoint of 
a traditional programming environment, 
say a fantastic government data base pro- 
ject in a large COBOL shop, this is a 
medium-sized project. 

A project of this sort is quite common 
in the data processing industry and could 
have been done in most any language. 
But we didn't do it in just any language, 
we did it in FORTH. And because we did 
it in FORTH, we got some benefits that 
are, realistically, only available in 
FORTH. Any of these things could have 
been done in other languages but they 
never actually would be because it would 
be too inconvenient. Only FORTH and 
its extensibility would have given us the 
benefits that we've gotten. 

Now I'd like to talk about these bene- 
fits and how they helped the project to 
be successful. Something to keep in mind 
is that Abacus II is a start-up company, 
doing research and development in new 
fault-tolerant techniques. The company's 
financial position was basically very in- 
secure and complicated by the necessity 
of having to show results to financial 
people throughout the false starts and 
dead-ends that always accompany R&D. 

This environment is where FORTH 
started showing its true colors. In this 
sort of environment what does a com- 
pany really need? It doesn't have a pro- 
duct yet so it has no income, so what it 
needs most is money and it has to get that 
money by impressing financial people 
with a demo that shows the potential of 
the company. Abacus II spent a lot of 
time meeting milestones, showing con- 
tinual progress to these people by means 
of demos. This approach led to a concept 
of vertical design and implementation. I 
can best explain this by looking at a tradi- 
tional language first. At the beginning of 
a three year project you do system 
analysis and way over at the end, after 
three years, you release a salable product. 
In between you do specification, design, 
coding, testing and validation. It is a se- 
quential process and it takes the entire 
life of the project. There's no time for er- 
ror. If you make a wrong turn near the 
beginning of the project, you may not 
find out until customer verification, three 
years later. 
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What you do in vertical design and im- 
plementation is that you slice your pro- 
ject vertically. Then you implement a 
very high level design and bring in the 
financial people and say, "Look, this is 
what we're trying to do." Then these 
people can sit down and interact with a 
live system. They can touch the screen, 
call up dummy forms and generally see 
what we're trying to do. 

We were able to gradually replace the 
simulation stubs by increasingly detailed 
operational code. At each milestone we 
were able to give a demo consisting of ac- 
tual code that would be part of the final 
system. We weren't just writing demos, 
we were doing useful programming as 
well. After about three weeks we had 
something that we could show. Now, this 
could be done in other languages, but it's 
just not convenient. 

In this sort of environment you can sit 
down with a customer and find out: is 
this feature good?; this looks fine; that 
doesn't, and so forth. On the next pass 
he might say: "Wow, you fixed that, but 
it's not what I meant. What I really think 
would be better would be this." You just 
keep iterating until it's right. 

We even changed computers in mid- 
stream. Just the other day we finished 
moving the code from a 6502 to a Z80 
system. This is the benefit of standardiza- 
tion. After we factored out the terminal 
drivers and some other peripheral- 
dependent code, the rest of the system 
just worked. I specifically checked on 
this. The parts that were just FORTH ran 
— no problems, no trouble — they just 
ran. 

Now, this is a large complex product 
and that means that it has a long product 
life. Since it has a long product life it will 
need to be maintained for years. Some 
people estimate that maintenance costs 
can be up to 90% of a product's total cost! 
So in order to produce a maintainable 
system we wrote the system with good 
style. 

Some critics have characterized 
FORTH as a "write-only" language but 
that claim is absolutely wrong. These 
applications are the closest to English of 
anything that I've ever seen. We didn't 
use FORTH like a 250 mnemonic assem- 
bler. What we did was create English. We 
could take an owner-operator of a 
McDonalds store, sit him down to look 
at the FORTH code, and he could read 
it. The high and intermediate-level code 
is written in their terms rather than in 
computerese or some programmer's 
terms. 



Basically, we did this with factoring — 
one function to a module. Probably the 
best rule of thumb has turned out to be 
that if you have a comment in a module, 
you throw away the old name and the 
parentheses and make the comment the 
new name of the module. This quick rule 
of thumb made readable code. 

The proof of the pudding has been 
maintenance — it's been long enough to 
see some results. Originally we had two 
schools of thought — short, cryptic 
words save memory and long English 
names will make maintenance easier. 
The cryptic code had to be thrown out. 
The English code is being maintained by 
junior-level programmers who, in my ex- 
perience, could not have done the job in 
other languages. These are some of the 
benefits of using FORTH. 

There's one more key point that has 
proven to be very important. When we 
first started we had some experienced 
programmers but mostly we had junior 
level programmers. We had very few pro- 
grammers who had ever used FORTH. 
We had Kim Harris come in and give a 
class in FORTH. By giving the class we 
eliminated the learning curve that nor- 
mally goes with making full use of the 
features of FORTH. Because FORTH is 
different, there's a learning curve. Lear- 
ning curves are expensive. This course 
eliminated that expense. 

FORTH was just a marvelous language 
to work in immediately. I can heartily 
recommend that if you plan a large pro- 
ject, get your programmers educated. 

So in summary I'd have to say that for 
commercial applications, FORTH is the 
only language for me. 
Moderator: Do we have any questions? 
Audience: Are there about 50 modules 
in your application? 
Derick: No, there are about 50 applica- 
tions — the number of modules is larger 
than that and still growing. 
Audience: You say that you've targeted 
McDonalds as the market for your 
system. Do owner-operators have the 
freedom to buy directly from you or do 
you have to sell these systems to the 
whole chain? 

Derick: There's a thing called the 
"Approved Vendor List." At the moment 
no one is on it. The people who were on 
it before were removed. They were using 
1970 state-of-the-art equipment, and it's 
1982 now. We have to deal with both the 
giant corporation and the individual 
owner-operator. 

Audience; Will McDonalds like FORTH 
because it's 20% smaller? (laughter) 



Derick: No, headless FORTH is closer to 
being 30% smaller. Seriously, we chose 
McDonalds because it's a huge potential 
market. 

Moderator: I'm sorry to interrupt, but we 
really must move on to our next panelist, 
Dick Miller of Miller Microcomputer 
Services. 

Miller: Is FORTH practical for business? 
"Clearly, it isn't!" is what we hear from 
a lot of people. Most recently in fact from 
the special FORTH issue of In/oWorJd 
that was out this week. I won't blame Jn- 
foWorJd because there were a lot of 
quotes in there that said that FORTH is 
great for process control and bad for 
business. There are a lot of reasons for 
that. One is it doesn't have strings or any 
capabilities in that direction and another 
is that it is totally unreadable, as we have 
already discussed. 

FORTH seems to have been working 
for us for business for 4 or 5 years. We 
built our own FORTH system. We might 
not have but there was no other way to 
get a FORTH system for the computers 
we were working on at the time. Of 
course once we had a FORTH system, 
we sat down and started to play. Then we 
played for money and discovered that 
FORTH wasn't good enough for that, 
FORTH is a tool not a solution. FORTH 
programs which get hung up on a stack 
error are not too re-assuring for secre- 
taries and will probably give FORTH a 
bad name. FORTH is fine for program- 
mers. That's never been the problem. 
What's needed are programmers under- 
standing what users are. We have some 
pretty good ideas on that. 

My wife Jill is a full partner in the com- 
pany and has 15 years of experience with 
large industrial business applications. 
She knows that FORTH is good and that 
little computers are often better than big 
ones. You can also put the little com- 
puters where you want them. Once you 
have them, you have to make them talk 
intelligently. 

The big problem there is that people 
who spend $2,000 for the computer don't 
know how much they ought to spend for 
programs. Usually these people are cer- 
tain that it should be a lot less! For some 
reason the applications don't seem to be 
too avaiJabJe at $15 each. We hit that pro- 
blem in several ways. We didn't even talk 
to people who were using small com- 
puters, at first. Instead we talked to peo- 
ple who were using big computers and 
told them how to do some of their jobs 
on little computers. They had the budget 
and understanding and were happy to 

Continued 



FORTH Dimensions 



5 



Volume IV, No. 5 



FORTH (continued) 



save money on the hardware while also 
saving some money on the software. 
They weren't begrudging us the fact that 
the application might be costing them as 
much as the computer. 

This situation is going to be very clear 
by next year — that we can't bring the 
cost of people down as quickly as we can 
the cost of computers. So we got 
ourselves a tool, an amplifier — FORTH. 

We've done a lot of the expensive kind 
of programming that we've just de- 
scribed and it's been very successful. The 
string handling is aboard in our FORTH, 
as it is today in most real FORTHs. To 
us and the user, the strings look about 
like those in BASIC and they run a lot 
more directly. We see the disk when we 
want to, and the user sees a files direc- 
tory when that's appropriate and doesn't 
when it's not appropriate. 

We have a full list of applications that 
are available inexpensively to go with our 
system. We didn't do this because we're 
benevolent but because we needed them 
for our other professional projects. Bit by 
bit, we developed a library of applica- 
tions and then went back and docu- 
mented them for casual users. We have 
a full communications package. The 
package will seem full to most of you but 
a few of you may want more. But, as I 
heard in a previous panel, designing 
something that's everything for every- 
body may take an infinite amount of time 
and the package probably will not fit in 
64K. We have a pretty complete system 
targeted for most real applications. We 
customize like mad for the other kind of 
applications. 

We have a data base system that's 
rather well known. It trades off large rela- 
tional data base capabilities for real-time 
results. It's very powerful and we think 
that it's the best professional tool for over 
half of the real-world professional ap- 
plications. We know it isn't for the other 
portion, the applications which must 
answer big fancy questions in one shot. 

When we need more capability we 
customize it in, as do others who buy the 
package from us. We have a word pro- 
cessor called Forth Write and I like it a 
lot. We've used it for many manuals and 
we're pleased with some of its new 
tricks, one of which is to take data from 
DataHandler, the data base package, and 
turn out customized form letters. If you 
want, you can hst all of our Congressmen 
and send them customized letters like 
they send to you. 

We have a general ledger package that 
out performs the minicomputer packages 



that we analyzed for the company that 
consulted us for advice on which 
package to buy. We next got the rights to 
move the Osborne accounting package 
into FORTH. We weren't smart enough 
about accounting, so the accountants 
who worked with us threw us and the 
package out on our ear and we had to 
come back with a package that worked. 
We had to stop thinking like program- 
mers and find out what the job really was 
and then come back to it as program- 
mers. Our system is very fast and it 
makes the people who use it about twice 
as efficient as with comparable packages 
because they spend most of their day typ- 
ing on the numeric keypad and they 
don't have to look at anything except the 
work that they are typing in. Considera- 
tions of efficiency are important for 
serious users. 

We have all these packages available 
as standard packages which run on our 
standard system, which is available on 
several computers. We also have special 
requests. Sometimes that means special 
hardware, sometimes a modification for 
the pre-existing hardware, and 
sometimes it means starting from 
scratch. 

We find our packages easy to modify 
because certain building-block words 
can be factored out and changed. For ex- 
ample, our communications package 
which normally runs menus at 1200 baud 
can be easily modified to run 9600 baud 
on the TRS-80, or over three times that 
on the IBM-PC. We've done some very 
interesting jobs just moving bits and 
pieces of these packages around and 
splicing them together. The strange thing 
is that we can afford to sell the packages 
complete for less money than we can sell 
their pieces. We're selling popular ap- 
plications. The applications cost a lot to 
make but if we can sell enough of the 
same application, we do OK and the 
customer does OK. 

The big shortfall of FORTH that I see 
these days is that FORTH is not being 
delivered to users with many usable ap- 
plications. That's what we've been trying 
to do. We think that FORTH is good 
enough and that there's a big enough 
market out there to pay for good things. 
Our little applications are optimized to 
show results on the screen instantly. We 
can't do everything that way but the 
things that we can do that way are so 
useful that they have found a market. 

Sometimes we have to trade off that 
speed for fancier processing or else get 
fancier hardware, but we're willing to do 



those things. If you're looking for an ap- 
plication that will do well, find an ap- 
plication that people need and then trade 
off its capabilities so that 90% of the peo- 
ple are happy about how you traded off. 

If you have an application that you 
need to develop in two months, look 
around for tools that already exist to help 
you finish the job. If you have trouble get- 
ting started, hire some professionals to 
come in and write the most difficult parts 
of the job while simultaneously training 
your group. By using this method your 
group will understand the problem in 
time to finish the job. FORTH works if 
you handle it reliably and these methods 
are some fairly reliable cookbook recipes 
that work. 

Our applications are written in 
79-Standard FORTH and if you don't 
have one of our machines, we are happy 
to sell you the apphcation words that you 
can pop over into someone else's 79- 
Standard FORTH. So, understand what 
the 79-Standard means when you have a 
big job to get done on time. There's a 
reason why FORTH has been confusing 
and part of that reason has been that 
FORTH has been different from one in- 
stallation to the next. So think standard. 
The missing link in the past has been that 
users had to go a long way off to get the 
applications that they needed. What 
we've been trying to do is to sell an ap- 
plication that is almost right for some- 
one in your neighborhood, for a few hun- 
dred dollars. In that way, you can modify 
the package for a few more hundred 
dollars and produce what the customer 
wants. This is the sort of work that a 
lawyer or doctor does. A few of them are 
inventing new diseases, cures or statutes, 
but most of them are helping someone to 
get a problem fixed. So, our non-custom 
work is intended to be 90% of your 
custom work and we beheve that FORTH 
is a good vehicle for this sort of work. 
Moderator: Could we have some ques- 
tions now? 

Audience: How can you support a pro- 
gramming environment in which the 
customers have customized systems? 
Miller: We only support what we sell. 
For example, we don't run under other 
operating systems, although we do have 
a FORTH that runs under CP/M. We call 
it the shoehorn and we don't sell it, we 
only use it for in-house development. It's 
a lousy FORTH that lets us get into the 
machine and bring over a good FORTH. 
Audience: What I mean is, when you 
sell a customized system, how do you 
support it? 
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Miller: We differentiate between clients 
and customers. A customer gets a de- 
bugged, standardized package. A client 
pays us by the hour for a different level 
of service. For our clients we maintain 
a listing with the modifications from the 
standard package marked in green. If the 
modification is small it fits in our stan- 
dard blocks. If the modification is large, 
then the standard block loads the 
modification from somewhere else and 
the load is marked in green. Large 
modifications also have a beginning 
block which has a little code and a lot of 
text. We can usually find out very quick- 
ly what differences our client's systems 
have. 1 suppose though that the real trick 
is not to customize unless you need to. 
The way to do that is factoring. Factor 
out the parts which remain unchanged 
from the standard utility. 
Moderator: Thank you Dick. Our next 
speaker is Marvin Benedick of Soft-Tax. 
Benedick: I'd Hke to give some back- 
ground about my company. As the name 
implies, I write an appHcation that's used 
by commercial tax preparers. My pro- 
gramming experience has been 5 years 
with North Star BASIC and 15 months 
with FORTH. 

My application has about 25 sub- 
programs. 500 "fill-in-the-box" style in- 
puts and 100 supporting screen displays. 
The application is fairly large but very 
repetitive because it fills in tax forms. 
FORTH excels in this repetitive string 
and number-handling environment. In 
BASIC the program was 350K. In 
FORTH its size was reduced to 140K. 
This 210K saving was largely caused by 
the repetitive re-use of subroutines. The 
routines for adding and subtracting dates 
are an excellent example of routines 
whose re-use saved much repetitive 
coding. In BASIC the date routines had 
to be re-written for each application. By 
re-using one set of date routines I was 
able to save much time in debugging. 
Any savings of time is very important 
because, besides writing the program, 
time is my worst enemy. I receive my 
final tax law proofs in late November and 
I must have my program written, de- 
bugged and documented by January 1. 
When I was trying to meet this time 
schedule in BASIC I found that it re- 
quired several programmers. 

In FORTH we are able to update not 
only the program but also our documen- 
tation which is also written in FORTH. 
In our documentation we felt that a pic- 
ture is worth a thousand words, so many 
of our screen displays are also re-used to 



produce illustrations. In FORTH we 
were able to re-use both our screen 
displays and input sheet codes to pro- 
duce camera-ready copy for our printer. 
This procedure saved me many hours of 
cut and paste work and saved me from 
needing to use someone else's word pro- 
cessing program. Essentially, my docu- 
mentation is now a FORTH program. 
With FORTH I am now able to read my 
programs a year later, I have been able 
to reduce my program-modification 
period because my routines have mean- 
ingful names now instead of numbers. I 
believe that what I am doing does not 
even scratch the surface of FORTH's 
capabilities. Starting on July 1, 1981, I 
was able to learn FORTH and rewrite a 
350K BASIC program, incorporating 
new tax-law changes and an improved 
design, in time for my January 15, 1982 
release date. I am very impressed with 
FORTH as a language — I think that it's 
the language for me. Any questions? 
Audience: Is this a package that you sell, 
or a service? 

Benedick: It's a package. It runs under 
both Northstar and CP/M, I sell it to 
enrolled tax preparation agents and 
CPA's to speed up their work. It helped 
that FORTH was so portable. 
Audience: Is your documentation a 
help-type facility or are you using 
FORTH to print out your documenta- 
tion? 

Benedick: My documentation is a series 
of FORTH words which control the 
printer to produce documentation when 
they are executed. My documentation 
really is a FORTH program. I don't have 
a help facihty because my programs are 
already too big. I couldn't afford to have 
that much text. 

Moderator: Thanks Marvin. Our next 
speaker is Charles Moore. I guess he 
doesn't need any other introduction. 
Moore: The question is often asked **Is 
FORTH really good for business?". It's 
as if FORTH's apparent virtues will 
somehow fall short in this area and some 
subtle problem will rule it out. Well, I'd 
like to answer the question with a 
qualified yes. FORTH is really good for 
business. But I don't know that business 
people know or want to know that, 

I have been speculating over the last 
year about motives. It's not clear that 
your typical manager of a corporate com- 
puter center wants to minimize the size 
of the program, computer and staff, 
while maximizing the program's main- 
tainability and response speed. These are 
things that FORTH is good at. He loses 



at every stage — he wants the biggest, 
most expensive installation he can have 
because that increases his salary, stature 
and influence within the company. 
Rather than saying that's wrong, it's 
necessary to recognize that it's so. To try 
to sell such a person on the virtues of 
FORTH is foolish. 

To achieve some market penetration it 
may be useful to divide the business 
world into large business and small 
business. Small businesses have tradi- 
tionally relied upon their accountants 
and lawyers to provide the services that 
a computer now provides. FORTH 
would make it more possible for a com- 
puter to provide those services. Never- 
theless, it may be more fun or more ef- 
fective to deal with a trained person than 
with a computer. Therefore, perhaps 
even in the small business area, FORTH 
is not good for business. 

If a business has management which 
is willing to be incompatible with every- 
thing (because FORTH really is incom- 
patible with everything else) for the sake 
of economy and efficiency and if that 
management is wilhng to innovate and 
accept the hassle that new computer 
systems always have, then FORTH is an 
excellent tool for that sort of manage- 
ment. 

I'm pleased to see that Dick, Mitch and 
Marvin mentioned readability, FORTH 
is truly a readable language. I've heard 
for ten years that "FORTH is very nice, 
but it's not a readable language." I have 
achieved a state of mind in which I don't 
even wince, although I might say that the 
person doesn't understand the problem. 
There is no way that I can convince a 
person that FORTH is readable short of 
teaching him to read it. The question is 
not the degree of FORTH's readability 
but rather whether people are willing to 
learn to read it. 

It is folklore that an effective manager 
knows more than the people he is manag- 
ing. A manager of programmers is wise 
to use his programmers to write code but 
he is also wise to read the code that his 
programmers write. If he doesn't, he 
places himself in a very vulnerable posi- 
tion because he is accountable, not the 
programmers. The ability of the manager 
to read the code implies that the pro- 
grammers must write readable code. 
Anyone can write UNreadable code. The 
presence of funny little at-signs and ex- 
clamation points (now pronounced 
"fetch" and "store" respectively) can be 
minimized with a certain style of pro- 
gramming. In business applications 

Continued 
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FOR TRS-80 MODEL I OR III 
IBM PERSONAL COMPUTER 

MORE SPEED 

10-20 times faster than interpretfld BASIC 
MORE ROOM 

Vary compact compiled code plus VIRTUAL MEMORY 
makes your RAM act larger. Variable number of block 
buffers. 3l-char.-unlque wordnames use only 4 bytas in 
header! 

MORE IHSTRUCTfONS 

Add YOUR commands to Its 79-STANOARO-f)(us 
Instruction set! 

Far mora complete than most Forths: single & double 
precision, arrays, string-handling, clock, graphics (IBM 
low res. gives B/W and 16 color or 200 tint color display) 

MORE EASE 

Excellent full screen Editor, structured & modular 

programming 

Word search utility 

THE NOTEPAD latter ivrller 

Optimized for your TRS-ao or IBM with keyboard repeats, 
upper/lower case display driver, full ASCII. 

MORE POWER 

Forth operating system 

Concurrant Interpreter AND Compiler 

VIRTUAL I/O lor vid»o and printer, disk and tape 

(10-Megabyta hard disk available) 

Full 8080 or SOBS Assembler aboard 

(160 Assembler also available for TRS-60) 

intermix 36- to SO-track disk drives 

4BM can read, writa and run M.3 disks 

M.3 can read, write and run M.l disks 




fOffTV 



THE PROFESSIONAL FORTH SYSTEM 
FOR TRS^ ft IBM PC 

(Thousande of aystema In use) 
MM8FORTH Disk SyMMitjrMutrn 1 ditk drive. 32K RAM) 

V2.0 for Radio Shack TRS^ Model i or III ll2iJ8* 

V2.1 for IBM Personal Computer (BCKcol screen) .... •24t.M* 

AND MMS QIVES IT PROFESSIONAL SUPPORT 

Source code provided 

MMSFORTH NewBleltar 

Many derno programs aboard 

MMSFORTH Uaer Groups 

insxpenalve upgrades to latest vera^on 

Programming etaff c«n provide sdvlcs, modif Icstlons and 

cuatom programa, to III YOUR neada. 

MMSFORTH UTILITIES DISKETTE: inciudaa FLOATING POINT 
MATH (BASIC ROM routlnaa piu« Complex numbers, flectarv 
gul«r-Pol«r coordlnst* conversions, Degrees mode, more); • 
powerful CROSS- REFERENCER to Hat Forth words by block 
and llrre; plus (TR&W) • lull Forth-atyle Z80 aaaembler or (IBM 
PCteolor) Turtle Graphics (requires MMSFORTH V2,0, 1 drive a 
3aK RAM) U8.M* 

FORTHCOM; communications package provides RS-232 
driver, dumb terminal mode, transfer of lllea or FORTH blocks, 
snd host mods to oparsts s rsmots FORTHCOM systsm (re- 
quires MhfSFORTH V2.0, 1 drlvs S 32K RAM) t3t.t«* 

THE OATAHANDLER: s vsry test dstsbsse msnsgsmsnt 
systsm opersbls by non-progrsmmeri (requires MMSFORTH 
V2.0, 1 drive & 32K RAM) •N.M* 

FORTH WRITE: fast, powerful word procsssof w/sssy ksy< 
strokes, Help screens, msnusi & dsmo files. Full proportions! 
w/tsbs, ouidentlng. Include other blocks, documsma, ksy- 
bosrd /nputs, A DATAHANDLER f^lda— (deal /or form (sttsrs 
(requlraa MMSFORTH V2.0, 2 drivea a 48K RAM) .... 1171.00* 
MMSFORTH GAMES DISKETTE: reaMlme graphics & board 
gsmee w/»ource coda, includea BREAKFORTH, CRASH- 
FORTH, CRYPTOOUOTE, FREEWAY (TRSJO), OTHELLO & 
TICTACFORTH (requires MMSFORTH V2.0, 1 drive & 32K RAM) 

tJIJ5' 

Other MMSFORTH products under defelopmeni 
FORTH 90OK8 AVAILABLE 

MMSFORTH USERS MANUAL - w/o Appendices Iirw 

STARTING FORTH - best I t1I.M* 

THREADED INTERPRETIVE LANGUAGES - sdvsncsd, 
snslysle Of FORTH Internsis $MM* 

PROGRAM DESIGN a CONSTRUCTION - Intro, to structured 
progrsmmlng, good for Forth 116.00* 

FORTH-79 STANDARD MANUAL - officisi reference to 
79-STANDARD word set, etc ttLM* 

FORTH SPECIAL ISSUE, BYTE Msgszlne (Aug. 1960) - A col- 
lector'e Item lor Forth usera snd beginners M.00* 

* - ORDERING INFORMATION; Softwsre prices include 
msnusis snd require signing of s single computer license for 
one-peraon support. Dmcrlbe your hardware. Add $2.00 S/H 

Blue >3.00 per MMSFORTH and $1.00 per additional book; 
Isas. orders add 5% tax. Foreign orders add 20%. UPS COD, 
VISA and M/C accepted; no unpaid purchase orders or refunds. 

Sena SASE for free MMSFORTH informatkm 
Good aeaisrs sought 

Get MMSFORTH products from your 
computer desler or 



MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 



where readability is paramount you 
shouldn't use them. They should not be 
removed from the language because they 
are useful — but their use should be 
minimized when the code will be read by 
non-programmers. 

It is almost always possible to arrange 
the FORTH words that describe an ap- 
plication in such a way that the words 
form meaningful English sentences. 
FORTH gives you a great deal more 
freedom in doing things than almost any 
other language. For example, in my 
business package I have a word called 
*'941", which generates the form for a 
941 tax report. Fortran would never 
allow such a subroutine name. Some- 
how, I feel that no one using that applica- 
tion will ever type 941 without meaning 
that particular report. 

I hate to write off the large business 
world because there is a lot of fun to be 
had by solving the many corporate pro- 
blems that occur. One of my day dreams 
has been to reprogram IBM's corporate 
books. I think that they could probably 
be placed on a minicomputer with im- 
proved throughput and greater executive 
confidence in the results. I think that the 
project would be about one man-year. Of 
course, I've just been hanging back, 
waiting to be invited . . . (laughter) but I 
no longer think that it will happen. 

There have been a number of large ap- 
plications that have been done in 
FORTH. Any "start-up" application that 
will run on a dedicated stand-alone 
machine is a good candidate for FORTH 
because there's no installed conservative 
attitude. Big inventory systems have 
been done in FORTH, banking systems 
have been done in FORTH, accounting 
systems, stock market "back rooms," 
even hospital systems. 

There's no reason to fear a large ap- 
plication — the tools for handling a large 
application are more available in FORTH 
than in any other language. The 
challenge is to implement these applica- 
tions with fewer programmers than they 
would otherwise require. Programmers 
will have to handle larger parts of the 
program but this should lead to happier 
programmers. Programmers like to solve 
significant parts of a problem. Letting a 
person handle the entire accounts 
receivable section for example, can be a 
powerful incentive to get that person 
working for you. 

I have always wanted to put FORTH 
on a mainframe. I have always thought 
that a 370 (or whatever they're called 
now) with hundreds of terminals would 
be a challenging environment. With the 
passage of time mainframes have 
become not only obsolete but uninterest- 
ing. We are now in the position where it 



is probably easier to build the main- 
frames out of minicomputers than it is to 
program the mainframes. A network of 
microcomputers is cheaper, easier to 
program, maintainable, fail-soft, redun- 
dant, etc. All the good words apply so 
strongly that I think that the mainframes 
will quietly rust away in the back rooms 
while a network of micros quietly take 
over the real work in the front rooms. 
That's about all I have to say. 
Moderator: Any questions? Any general 
questions? 

Audience: I read in Business Week that 
many companies are forming what they 
call "decision centers" because the con- 
ventional data processing facility has too 
slow a turn-around to be effective in mak- 
ing decisions. Do any of you know of 
this? 

Dick Miller: I have a comment. We do 
a lot of business with large companies 
but very little of it is through their data 
processing centers. What's been happen- 
ing is that every corner of the corpora- 
tion except the data processing depart- 
ment is quietly getting a '*desk-top data 
processor," or some other device that 
doesn't sound quite like a "computer," 
It allows them to get their answers in an 
half hour instead of two weeks later. The 
smart data processing organizations are 
beginning to talk to us. Often they seem 
to figure out a system where the little 
computer talks to the big computer, leav- 
ing the big computer more free for the 
large tasks and eliminating many of the 
complaints. 

Audience: Why do you think FORTH is 
particularly well suited to distributed 
processing? 

Charles Moore: There are two reasons. 
First, much of distributed processing 
consists of a large number of simple 
tasks. FORTH is usually very good at pro- 
viding large quantities of simple things. 
Whether the system consists of many 
tasks running on a single computer, or 
even more tasks each with its own copy 
of the machine and software, is only a 
small difference. The other reason is that 
FORTH is very, very good with com- 
munication protocols of all kinds, A sim- 
ple serial communication usually only re- 
quires two lines of code at each end. 
Layered protocols, node addresses and 
other such complexities are usually 
handled rather nicely by FORTH and 
very poorly by the only other language 
which can handle network communica- 
tion, namely assembly language. 
Moderator: Well, our time has run out. 
Thank you gentlemen. 



Moderator John Hall is a FORTH consul- 
tant in the Oakland, California area. D 
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Ver. 2 For your APPLE II/II+ 

The complete professional software system, that meets 
ALL provisions of the FORTH-79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH— 
79 with the FORTH you are now using, or plan to buy! 
FEATURES OURS OTHERS 



79-Standard system gives source portability. YES 
Professionally written tutorial & user manual 200 PG. 

Screen editor with user-definable controls. YES 

Macro-assembler with local labels. YES 

Virtual memory. YES 

Both 13 & 16-sector format. YES 

Multiple disk drives. YES 

Double-nunnber Standard & String extensions. YES 

Upper/lowercase keyDoard input. YES 

LO'Res graphics. YES 

80 column display capability YES 

Z-80 CP/M Ver. 2.x & Northstar also available YES 

Affordable! $99.95 
Low cost enhancement option: 

Hi-Res turtle-graphics. YES 

Floating-point mathematics. YES 

Powerful package with own manual , 

50 functions in all, 

AM951 1 compatible. 

FORTH-79 V.2 (requires 48K & 1 disk drive) 
ENHANCEMENT PACKAGE FOR V.2 

Floating point & Hi-Res turtle-graphics 
COMBINATION PACKAGE 
(CA res. add 6% tax: COD accepted) 



$ 99.95 

$ 49.95 
$139.95 



MicroMotion 

12077 Wilshire Blvd. # 506 
L.A.,CA 90025 (213)821^340 
Specify APPLE. CP/M or Northstar 
Dealer inquiries invited. 




Version 2 For Z-80, CP/M (1.4 & 2.x), 
& Northstar DOS Users 
The complete professional software system, that meets 
ALL provisions of the FORTH-79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH— 
79 with the FORTH you are now using, or plan to buy! 



FEATURES 



OURS OTHERS 



YES 
200 PG. 
YES 
YES 
YES 
YES 



79-Standard system gives source portability. 
Professionally written tutorial & user nnanual. 
Screen editor with user-definable controls. 
Macro-assembler with local labels. 
Virtual memory. 

BDOS, BIOS & console control functions (CP/M). 
FORTH screen files use standard resident 

file format. YES 
Double-number Standard & String extensions. YES 
Upper/lower case keyboard input. YES 
APPLE I I/I 1+ version also available. YES 
Affordable! $99.95 
Low cost enhancement options; 

Floating-point mathematics YES 
Tutorial reference manual 
50 functions (AM951 1 compatible format) 
Hi-Res turtle-graphics (NoStar Adv. only) YES 

FORTH-79 V.2 (requires CP/M Ver. 2.x). 
ENHANCEMENT PACKAGE FOR V.2: 

Floating point 
COMBINATION PACKAGE (Base & Floating point) 

(advantage users add $49.95 for Hi-Res) 

(CA. res. add 6% tax; COD & dealer inquiries welcome) 



MicroMotion 

12077 Wilshire Blvd. # 506 
L.A.,CA 90025 (213) 821-4340 
Specify APPLE, CP/M or Northstar 
Dealer inquiries invited. 



$99.95 

$ 49.95 
$139.95 




CHAIRMAN OF THE BOARDS 



INTRODUCING P-FORTH 

The P-FORTH card is the key 
member in a family of control 
systems cards offered by the 
innovators at Peopleware 
Systems, inc. P-FORTH has four 
major advantages: 

1. It is a versatile building block. 
The simple addition of a 
power supply and terminal 
makes the P-FORTH card both a 
low cost development system 
as well as a target system. 

2. An integrated high-level 
interactive language allows for 
fast software development 

3. Application programs are 
stored automatically in non- 
volatile memory. 

4. The STD BUS interface allows 
the use of a variety of existing 
peripheral cards. 



PUTTING P-FORTH TO WORK: 

Users interactively develop 
applications through a combi- 
nation of hardware and software. 
These applications are automatic- 
ally programmed into non- 
volatile memory (EEROM). When 
the applications are proven and 
functioning, a single switch 
transforms the system from the 
developmental mode into the 
target system. 



P€OPL€UJfiR€ /V/T€M/ INC. 

5190 west 76th St. 
MplS., MN 55435 USA 
(612)831-0827 • TWX 910-576-1735 



SOFTWARE 

• An interactive high-level 
language following the 
fig-FORTH model 

• A monitor for system checkout 

• "FORTH-type" screen editor for 
developing application 
programs 

• A "FORTH-type" assembler for 
writing assembly language 
routines 

• High-level interrupt-linkage 

• High-level communications 
protocol for down loading from 
a host system. 

HARDWARE 

• 6801 microprocessor 

• 6K EEROM 

• 8K FORTH firmware 

• 2K RAM 

• STD BUS Interface 

• RS232 serial I/O 

• 16 TTL I/O lines 

• Programmable timer 
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THE INDEXER: 

Enhancements to a Data Base Model 



Robert N. Watkins, CCP 
Long Beach, California 



A previous article in FORTH Dimen- 
sions by Glen Haydon (3} presented a 
good foundation for data base work. 
This article describes the addition of 
an indexing scheme and query lan- 
guage to that design to implement a 
specific type of data base optimized for 
retrieval of data records by keywords. 

The essence of the previous article 
is contained on screens 61 and 62. The 
eight FORTH words defined there 
enable the declaration of a data base 
file, fields within each logical record 
in such a file, and some primitive 
operations. 

Each file is described by a file infor- 
mation block, or FIB, which is created 
by the defining word FILE. A FIB (see 
figure 1} holds the starting block 
number of the file, the maximum 
number of records it may contain, the 
length of a physical record (buffer) and 
the length of a logical record, several 
of which may fit into a physical record. 

Invoking the name of a file places the 
address of its FIB into a variable called 
OPEN. All other access words use OPEN 
to point to the FIB of the currently 
open file. The word READ places a 
logical record number (relative to zero) 
at the address returned by REC#, to in- 
dicate which logical record in the file 
is to be considered current. 

The defining words DFIELD and 
TFIELD can be used to create words that 
describe fields within the logical 
record. Invoking these words will 
cause the disk block containing the 
current record to be loaded if needed 
and return the starting address of the 
field within the disk buffer. Words 
created with TFIELD also leave a count 
on the stack for use by words like TYPE 
and CMOVE. 

Given the basic file development 
words above it is possible to construct 



pfa+O 
+2 
+H 
+6 
+8 



STARTING BLOCK # 



lUX, LOGICAL RECORDS 



PHYSICAL RECORD SIZE 



LOGICAL RECORD SIZE 



CURRENT RECORD NUMBER 
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Precompiled FORTH 
and electlves blocks 
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Bit Manipulation 



Index Maintenance 



Query Language 
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User's Definitions 



Figure 1, File Information Block 



Figure 2. Dictionary Layout 
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addr+l 
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addr+2 
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Figure 3. Bit number designations 
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many different visions of a data base. 
The Indexer is merely one such vision. 
My purpose v^as to find a v^ay to cross 
reference data records under several 
subject headings and be able to con- 
duct queries to extract subsets of the 
file. For example, if I ran a clipping 
service and found an interesting arti- 
cle on bicycling, I v^ould v^ant to be 
able to quickly find out urhich of my 
customers u^ould be interested in a 
copy. 

The goals v^ere: (1) fast response 
time on reasonably complex queries; 
(2) reasonable response time on file 
maintenance; and (3) tolerable use of 
disk space. The method I chose is 
based on a manual method of indexing 
using optical incidence cards (1). Num- 
bers are assigned to the keyv^ords and 
the appropriate numbers are punched 
into each card. By superimposing 
cards and holding them up to the light, 
matches can be spotted. The Indexer 
uses bitwise logical operations to 
superimpose index records and bit 
testing to "hold them up to the light." 

Each Indexer data base consists of 
four disk areas v^hich are load screens, 
keyv^ord file, index file and data file. 
Think of a little kid (L'KID) to remem- 
ber them. 

The load screens contain the user's 
definitions of fields in the data base 
(see screens 27 and 28 of the previous 
article). Also, any v^ords to manipulate 
those fields, such as .REC to list the con- 
tents of the current record, could be 
contained here. 

The keyv^ord file contains the sub- 
ject terms that are to be used in index- 
ing. In the version contained in this 
article, each can be up to 32 characters 
long and have embedded spaces. The 
keyv^ord file is updated much the same 
as any other file. 

The index file is essentially a bitmap: 
for each combination of keyv^ord and 
data record there exists one bit which 
is set to one to indicate a relationship 
or left zero to show no relationship. 
For each keyword there is a correspon- 
ding index record. For each data 
record there is a bit in each index 
record. This file is maintained by 
words that establish a linkage between 
whichever data file record is current 
and the desired keywords. 



3C|:^ it :l. 

< INDEXKR Case Stud-i OB - Field Def in :i.t:i.(:>ni;» ) 

L r-ORGE- r USER- Dt;: : USER - OB ; 

2. i) 30 ri":i:ELD name ( Hamt- of cQi'.t;;M-t ) 

3 16 TI"*IE-LD F^'HONE: ( Phone: i ii nnber vyV C(ji itac I', ) 

^ 16 TFTELD NETWORK ( Network addresiii of contiact ) 



7 
8 
9 
:l. 
1 1 
12 
1 3 



! NAME ( • ) C inF'='i..it, arid store CQnt,v:ict nanie ) 

NAMI:: 32 FIL.L C^UERY I TEXT l-'AO COUNf 

NAMi;;: i-<ot min cmovi:: update ; 

»NAMI:: ( ) ( print naiTie rield ) NAME JYFE i 



I PHONE ( ) 

FmNE 32 FILL 

F'H ONE ROT MIN 

J"'I-10NE ( - > 



( inpi.'t and store contact phorie ) 
QUERY ;l. TEXT l-'AD COUNT 

(:;mo^^I:: ui-'Oate ; 

< print Phone field > PHONE TYPE ? 



.eld def'ns cont'd 



SCR t 2 

C INDEXER Case Stud'Jr cont'd 
L 

Z : 'NETWORK ( - ) ( input and store network address ) 

3 NETWORK 32 FILL. QUERY 1 TEXT PAD COUNT 

4 NETWORK ROr MIN CMO^^E UI-'DAT'E ; 

'5 t .NETWORK C ) ( print net address ) NETWORK TYPE 

6 

7 -■■-■> 



SCR 



( INDEXER Case Stud^:J» cont'd UtxXiity words > 

: .REC < ~ ) < print contt^nts of current record ) 

CR .NAME .PHONE * NETWORK CR OR ; 



NEW-OA r A 

df:i:l.e 



) 



( add riew rUvtB r*?>cord to DB ) 



tfJRCNT* 



1+ DUF-' 



! RCNT 



(;;R " Et 'iter cor'p tac t r iame J ' 

C; R , " E n t (v? r t e 1 e p hi o i"ie 11= I " 

CR * " l::;ri ter ne twor^l-^. addr-eiiii 

.REG l-LUSH ; 



RH-AD 
! NAME 
! r^'HONE 

I NETWORK 



BCR f- 60 

CR THE INDEXER; Loadir,j:iS " 
1 

2. FORCE'r AF'PLXCATION : APPLICATION i 

3 

< First load the database packai^ie published \:>\i FIG ) 
'5 61 LOAD 62 LOAD C orij=tinallw screens 22 and 23 > 
6 63 LOAD 6'\ LOAD 6!^ LOAD ( or ii;J:Lnal 1^:J 2^ ~26 > 

7 

8 C Now load The Irtde;<er ' s screei is ) 

9 : LDADEM 83 66 DO I^'ORITI I LOAD LJJOP J I...OAi:)E'M 
1 f.) 

l:l. C All done* Tell user how to proceed ) 

12 CR *" Rosadv:^. Insert wour database disk and t^jpeJ " 

13 CR . " LOAD- i:)i:;: " ?S 



SCR # 61 

CR SCREEN 61 X FILE DEUELOPMENT (22) " 

1 VARIABL.E OI"'EN ( points to CMjrrent fiJ.e bl.oi-k ) 

2 i REC^J^ OPEN 8 + ? < holds d.irrent record \ ) 

3 

^1 ( 2(» DUl-"' 2t' W 3WAI-- (? ? C double fetcfi ) 



6 : L.AYOUT ( leave b^tes/recor d -2 ^ bytes/block - 1 ) 

7 OF'EN (f? '\ 2G? ; 

8 I re: AD ( n-th records on stacks is made current ) 

9 MAX DUP OI^-t'N 2 Q < Q^- 

IF . " f:i;le i;;:rror " quit tfien rec* \ ; 

1 ; RECORD C It^^ave address of n~th record ) 

2 LAYOUT «/MOD OPEN (» & •♦■ BLOCK + * 

3 X ADDRESS ( leave address of current record ) 
^ REC* RECORD J 

'5 ? S 



Listing continued on next page 
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INDEXER (continued) 





# 


62 









; » " SCRH'I: 


- N z'*? t l- TI F DF UF-'LOF-'MPNT ~ 2 (23) " 


X 




TF-TELD <\ 


.A* L„IVO V 1 IV7 C> W UT <;* ^/V7. X\ W T J. 177 -L 'J / 






G"JIn!R r 1 
















2f? ADDRl 


zSS. SWAP* J 


5 


i 


DFXt-Lt) 


;:L'!:U:i:LOS < cre?ate data field ) 


6 




□"JER f ■ 


( leiuvevi f i le count for i,^>n.s def n ) 


7 






[>0£S> ( :Lec»ve addrej^is ) 


8 






:>s ■♦■ * 


9 




tile: 


C err eate a named stor ade cj 1 1 ocah i. on 


10 




<c;:ui:li;)G 


f ( lii-tartinrJ block in f i le ) 


1 1 




:L *- y 


< number of records in file > 


12 




OUF- B, 


^BUP 0>JHR / X f < IttvrJtes / block ) 


13 




f • (j f 


< bytes/record f currtsnt rec* ) 


1^ 




DOEB> ( 


yi'VLH ! % < wJien file name is i.jsed r point to 


i'5 






( i ts d€*scr iptor b.lot?k ) 


iCr< 




63 




I) 


CR *" SCRKI 








D/ ( d 


1 1 d > 


3 




SWAF' O'v'l 


h:r /moo : 'R swaf- u/ swaf- drop r> ; 






D« < d 


d ) 






DUF ROT 


X ROT ROT U)tc F<or t- t 


6 




t)/MOO < 


d ' J - d ) u/ ; 


7 




D& < 


addr d ) OUP 2+ (? SWAF' & t 


Q 




D! < 


d addr ) DUF' ROT SWAP ! 2 *• ! ? 


9 




OOUP < 


d "-• d d ) 2i:)UP ; 


10 




OS WAP 


< dl d2 d2 dl > ROT :>R ROT R:> i 


11 




i:)DROP 


( d:L d2 — ) DF<OP DROP t 


12 




tS 





SCR 

J. 



* 

CR ♦ " 



scre:i::n 6^t date compression and expansion <2S> 



3 

6 
7 
B 
9 
10 

11 

12 



DATEtiilT ( conver ts date iLnput to 2 bv^tes ) 
32 D* D*- 13 Dx Dt- DROP i 

?DATE ♦ ■ ( Mh/DD/YY ) ' 

OUERY '*/ WORD HERE NUMBER WORD HERE NUMBER BL WORD 
HERE NUMBER DATEBIT ? 

♦DATE < FORMAT 2 BYTE DATE CODE AND PRINTS ) 

:L3 U/ 32 /MOD ROT 100 x ROT + 10 D* ROT D+ 
* * H(JLD * # ^^7 H(DLD * # TYPE ? 

J S 



(26) ' 
: 2SCALE 



::fa 



SCR # 65 

CR ♦" SCREEN 6'^l ?*AMOUNT AND ♦*AMOUNT 

1 ( define action for each scale case ) 

2 : OSCALE 100 D)tc ; ; 1 SCALE ;L0 D* ; 

3 ; 3SCALE . " INPUT ERROR " CR t 

^ < '-.i e f i n e s c i;» 1 e cr s e a rid e ;< t €* ri d f <:) r^ e mvh w i t h ' C f A ' ) 

5 ' OSCAL.E CF A "JARIABLE NSCAL.E ' 1 SCALE CF A t ' 2SCAL.E 

6 ' 3 SCALE CFA r 

7 ( <;> c 3 1 e d o i,ib 1 e p r e c: i s i o ri v a 1 t..i e a c c* o r d i ri «l to ' D F' I... ' > 

8 ^ St: ALE DPL 3 MIN 2 « NSC ALE * (? EXECUTE ? 

9 ( wa i t for de«L' :i ma 1 va lue and seal e i t leave va iL.ie oi 

10 : ?^tiAMOUNT OUHRY BL WORD HERE NUMBER SCALE ? 

11 ( print d from stack as * and rii-iht Justify:* in 8 spaces ) 

12 : ♦^liAMOUNT 

13 DUP ROT ROT DABS <:* » * HOLD #S SICJN 
1^ 36 FiMIT DUP 8 SWAP SPACES TYPE * 

15 ;s 

SCR # 66 

CR SCREEN 661 BIT MANIPULATION " 

1 t ::-ANQ. < from to cxjijrpt - ) ( irnjve wh:i. le ANOinsi ) 

2 2* (J DO 

3 2DUF' I t- W SWAP 
^ I + AND 



;;t3ck ) 



A 

7 

e 

9 
I U 
11 
12 
13 
1^+ 
15 



iJiJER I t- ! 
2 t-LOOF' 2DR0F' t 

>0R < from to count 

2* DO 

2DUP :i: + SWAF- 

:]: + (? OR 

0>JER I + ! 
2 ^ LOOP 2DI-^0F:' ; 



( move while OR in<i ) 



The data file is the same as in the 
previous article, with one addition: the 
last n positions of the record are 
reserved for a list of keyword numbers 
that are associated with the record, (n 
= 2 X the maximum number of key- 
words/data record.) This redundancy 
has speed benefits at maintenance 
time, as the bitmapped index has speed 
advantages at inquiry time. In addi- 
tion, the keywords list enables the 
index file to be rebuilt for the data 
file if a system crash or other mishap 
causes the two files to be out of syn- 
chronization with each other. 

Figure 2 shows the dictionary layout 
of the Indexer. After FORTH is loaded, 
my system's last electives screen 
defines the null word APPLICATION. The 
Indexer FORGETs back to that word, 
then re-defines it. The original article's 
screens come next, followed by Bit 
Manipulation, Index Maintenance, 
Query Language and Utility words. 
Finally another null word, USER-DB, is 
defined to provide a FORGETing boun- 
dary for the user's data base definition. 

The earlier data base screens were 
used with only one modification: the 
variable REC# was replaced by a word 
which uses OPEN to place the current 
record number within the FIB. The In- 
dexer switches among the three files in 
the file set and the current record 
number of each must be preserved. 

To accomplish this I reversed the 
order in which REC# and OPEN were 
defined on screen 61. Then I redefined 
REM in terms of OPEN, to return 
addr + 8 of the currently open file's 
FIB. Finally I added a "zero comma" 
to the < BUILDS portion of the defining 
word FILE to make room for the record 
number in each FIB and initialize it to 
zero. The FIB layout modification is 
shown in figure 1. 

This modification to REC# illustrates 
the functional nature of FORTH (2). 
Recall that a variable leaves on the 
stack an address at which the data can 
be found. The new definition has the 
same stack effect (interface to other 
words) yet internally is implemented 
quite differently to extend the concept 
of the current record. 

Screens 63-65 are the date and dollar 
conversion routines from the previous 
article. No changes were made. 
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Screens 66-68 contain bit manipula- 
tion routines. >AND, >0R, and >NOT 
are designed to be similar to the '79 
Standard MOVE in that they move 16-bit 
cells at a time and take three argu- 
ments from the stack: from-addr, to- 
addr and cell-count. But a funny thing 
happens on the way to the to-address 
— the desired logical opration is per- 
formed bitwise on the cell. 

An excellent article in Byte 
magazine about a disk operating 
system (4) inspired the bitmap words 
that follow. A 2 ("carat two" or "upar- 
row two") raises 2 to the top-of-stack 
power. BITMASK takes a given bit# and 
produces the mask required to test that 
bit; if the bit number is greater than 
seven, the address on the stack is also 
adjusted to point to the correct byte ad- 
dress containing the bit. See figure 3 
for bit# designations. BITON and BITOFF 
do exactly that — turn a given bit on 
or off. ?BIT returns the status of a given 
bit. 

Specifying both an address and a 
bit# in these three words gives flexibili- 
ty. You can number bits from the start 
of the logical record, or restrict the bit 
numbers to the range 0-7 and work 
with individual bytes. 

Screen 69 contains working vari- 
ables. WORKSIZE is a constant that tells 
how large the current working set is in 
bytes. WORKSET is that working set — 
a bitmap with one bit per data record 
in the file. If a bit is on, the associated 
data record is a member of the subset 
under consideration. WORK# holds the 
current bit# within the working set. 

The next four words are used to keep 
track of the current query — that set of 
commands that created the working 
set. #STEPS tells how many commands 
have been given. QVERB and QOBJ are 
tables (maximum capacity 30 entries] 
that store the number of the command 
given and the number of the keyword 
involved, if any. "VERBS" is a super- 
string that explains what the various 
command numbers mean, for use by 
.QUERY. 

The last three words on screen 69 
are the file designations. As in the 
previous article, defining a file re- 
quires three arguments: the logical 
record length, maximum logical 
records, and starting block number for 



scf;:e::i:::n 67 1 bit manipulation 



1 




:>Na*r < ftM:>rT. to 


(:x)i..n'it - ■- ) < 


iTi o V e f ^: o m p 1 e m e i 


■it:i.ri?.:s ) 


'/ 




2* DG 












mER I 


(r? CGMPL 


EMENT 








Q\>ES< I 












2 +LGOP 2i:) 


RGP ? 






6 












7 




A 2 ( n ■ — 2 An ) 


( set^ ref II 


]. J ) 




8 




DUI"' 0^= IF DR(.1P 








9 




FLSE 1 


SWAP 0(3 2* 


LGOl"' 




.1 




THFN ; 








11 












12 


* 


BITMABK ( b:Lt* 


-■- bitjTiask ) 


( see te;;t ) 




:l 3 




B /fiOt) ROT' + 


SWAP 7 SWAP 


-- A2 ; 




1 ^'t 












SCR 




68) 











CI 


R * " SCRFtiiN 68: B 


IT MANIPULATION 3 " 




:!. 




i;;:IT(:)N < addr b:i. 


t^B= ) < set 


:i.r idic;;j bed b;i. t ■ 


J. ) 


3 




BITMASK QiJE-R 


c(;? Of;: SWA 


P C! ; 




'\ 














; 


BITOFF < acldr b 


:i.t# - ) ( <:^e 


t :i.i'idic;;jted b:i.t 




6 




£;:ITMASI( CGMPLFM 


ENT 0\>ER C(» 


AND ;;>WAI"' C 


! i 


7 
B 




?BIT ( <;?dcir bit 


r ) 






9 




BITMASK SWAP 


CXI? AND 0^- 


NOT" ; 




1 














*■ 


69 










.1. 


cr 


< SCREEN 69: WORKING ^JARIABI 


.„ES " 






.1.; 


?.8 CGNJ;JTANT WORKS! 


IZE < wcjrl^.iri; 


K-S liiet b:l. l:iT(ap iri 


b^jtes ) 




t) 


vafu:ai:;:i._!::: worksft 


WORKSIZE 2 


■ ALI...G-]- 









MARIAi:;:|..F WGRK=«= 


( (::i..irrerrt re(::t 


i:ird -11: wcjr l':.il"l?.■■ 






16 'v'ARIABLlii: KWD/F<i;:i 




^OT^ds p(-:?r diiit^ij r 




6 


G 


VARIABL..E il=S]EI"'S 


( Iwrri^^th of 


c^Lir T-erit Qt.iwrvj ) 




7 


3( 


J 1 ARRAY Q^-'ERB 


;30 :l. ARRAY QOB. 


J 




tij 




-iJERBS" < liUPeTv 


r>tr :i.n.'.-f witf'i v( 


■■■^vb literiitl^iv ) 








, " NONE ? A L.I... ? 


SELECT < AND < 


ORi ANDNLVf 


•<QRNOT< 


J. :i. 




;i2 30 5 FILE \<\ 


"ILE < ke^:*word-^ file ) 




1 2 


128 30 vs filh;: i.\ 


"'ILL < :i.ndG?K 


bitiTiap rile ) 




1 ;:j 


2C 


^6 100 152 FILE OF 


"ILE ( d5jt3 • 










70 











cr- 


♦ " SCREEN 70 : PI' 


^e-di;;:fine:d fii 


:;:lj:)s " 




1 





2 df:i:el.d i-^cn v dr( 


jp ( iitii 


r i !!. e?> : cur r (vM'it 


ec * coijy 


'2 





32 TFIELD KWD DRt 


;)P ( ke^:*word file; cinl-iii 


f it- Id 


3 





2 DI-ILLD RECSTAR" 


r DROP ( Bll 


r i 1 eiiv ; T' e c li; t art <u d d r' ) 






(?RCN'T' ( - n ) 


< ?.-?eb record 


coijrrlv roT* operi 


file ) 


5 




GPS-N (a 8 + (a 


f;:ead RCI 


MT (a swAi"' ivi;;. 


:ad * 


6 




!RCNT C n - ) 


< store uF'da 


t,ed (:^(:)Ul•■|t for ok- 


en file 


7 




OPEN (a B + (? 


SWAP Rlif 


^0 RCNT ' UP 


■da'tt: 


B 




!KWO ( ) < : 


Li'ip'jt ';■> l,ar (;? 


ke^:JWord in reco 


.T^d ) 


9 




KWD 32 FILL QUERY 1 TEXT 


PAD COUNT 




10 




KWD ROT MIN CMG^JE UPDATE 






11. 




NEW-KWD < •— • ) 


( add record 


to ke«.:iword f i 1h 




12 




KFILE ffRCNT 


1+ DUP !RCf 


vJT ri;;;ad 




13 




CR . " ENTER Ni! 


;:w keyword: " 


! KWD 




1^ 




t:R KWD TYRE 


i-L.usH ^ 







i-V!;;:ao 



SCR 

1 

'■> 

3 



a 

9 
1 
1 1 

12 
1 3 
l-=t 
llo 



# 7 J. 

CR SCREEN 71 : INDEX MAINTENANCE " 

: ?NULL ( f ) ( true if PAD tia<ii d null strirYi ) 

PAD DUI"' !■+• Cti» 0""== SWAI-' C(j? 0===^ 01-;: ? 
: t-NDX C data^«= kwd* ~ ) ( update index for kwd ) 

opi;;:n rgt rot ir-:i:LE r;:EAD f<ecs]ai:<t' swap- i;;aTON 

UPDATE OPEN ! i 
t "NOX ( data^t kwd=ll= ) C update inde;; Tar t^.wd ) 

OF' EN (r> RGT ROT' :i:f:i:li;- read Ri:::csTAr<]' swai"' i;;;iroi--i" 

UPDATE OPEN ! ^ 
X ?KWD < l^.wd* ) V k.^rn- if di^finf^rU if ncrL ) 

Gi"'EN f» kf:i:le (sRCNV 

1 *■ :l. DO < loop thri,.i l-^.e^wor ds i.irit:i. !l. foijnd or mrt ) 

l"Of;;TI"l I r<EAD 

1"'AD COUN]- KWD DROP - TEXT < coiT.Piure ) 

IT swAi"' :i: +• swAi"' Lt::A*.'E ti-ien 
LOOP or-EN ! ; 



Continued 
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INDEXER (continued) 



SCR 


:l. 



* 771 

CR SCREEN 72: INDEX MAINTENANCE 







LISTL.IM 


< :L:i.mj.t start > ( calc 1 


iiTiits for kwd list ) 


3 




RECSTART OPEN I? 6 + f 2 < 


start addr ) 






DUP KWD/REC (3 2x SWAP * 




6 




?SLG'T' ( 


n -- fjddr ) i retijrris acidr 


of iitatcfilii?.=i liilc)'.: OT' 


7 




SWAP 


C r(?turri value if lo 


OK' e>;pire<-j w/o match ) 


Q 




LISTLIM 


( ile t 1 i m i. t lii o f V. e wo v d 


s 1 ist in data rec ) 


9 




DO 






:L 




:i: (» 


O'.^ER C .'^et I'.wd* rroni list ^ coiTiPi;}tM:> ) 


1 :L 




IF 


SWAP DROP I SWAP LEA^^E THEN 


C rErt',L'rn the (-icidr ) 


12 




-■■2 +L00 


1"' DROP ; 




;CR 




73 









cri; 


♦ " SCRE 


EN 73: INDEX MAINTENANCE - 3 








♦ KWD ( 


■•- ) < Lif-'dste aj. 1 1 :i.nK3?^ei:v 


for 1 k.e^:JW(;>rd ) 






OF'EN C-* 


DFILE REC* DLiP ():- 




3 




IF » " 


■— NO CURRENT- RECORD " DROP 


OPEN 1 OIJIT ri-IEN 






?h;WD 


DUP 0^ 








IF » " 


NO SUCH KEYWORD " 2DR0P (D 


F'EN ! 0UI7' fFIEN 






DUP ?SLOT C is the kuid aire 


ad^:* in the list ) 


7 




IF 2DF;;0P C yerir no further 


ijpdii»tin;3 re« ' d ) 


a 




ELj'ii:;: o 


?SLOT DUP C noT there 


T'ooiTi for orie iTiore'!' ) 


9 




NOT 


IF . " ■— TOG MANY KEYWORDS " 


DROF' 2DRQP (JPEN ' QUIT 


10 




ELBE 


:>R DUF- R:> ! UI-'DATE t-NDX 




1 1 




THEN 






12 




ThIEN 






13 




OPEN \ 


; < r*estaro? the provioij 


si'-; open file ) 


cr< 


* 











CR 


♦ " SCREI 


EN 7^: INDEX MAINTENANCE - 




1 




-KWD C 


) ( remove? all l:Lriki3aeir> 


for 1 ke^:^word ) 


'•> 




OPEN (» 


DFILf- REC* (? DUF- 0- 




3 




IF » " 


■-■ NO CURRENT RECORD " DROF' 


OF'tiiN ! QUIT T'HEN 






?h<W!:) 


DUF- 0- 




5 




IF 


NO SUCi-i hiEYWORO " 20R0P (3i 


I"1;;:n \ f:ju:i:T ri-iii'N 


6 




DUP ?SLOT DUP ( i<=i the Kwd alre^jd^d 


in the list ) 


7 




IF :>R 


R::> ! LiPDA'TE -NDX Tl-ll 


EN 


8 
9 




OPEN ! 


% < restore the previoi.' 


s 1 open file ) 


10 




♦■TERMS 


< ) C add n keywords to > 


tiMjr r ent data r ec^or d > 


11 




t:;E(;iN 


TEXT ?NULL NOT* C del 


i miter is coiTiiTia ) 


12 




WHILE 


(::r I"' AD (;;auNT tyf-e +kwd 


REI'-'EAT ; 


CR 


# 


7^;> 







J. 


CR 


, " SCREI 


;;:n 7;!!;: index maintenance -■ ^ 








TERMS 


( — ) C eiTiC) ve i'( k.e^ij'wcir ds ■ 


rroiTi cMjr T'efib re(::(:?rd ) 






be(^:i:n 


't't TEXT ?NULL NOT 








WHILE 


CR PAD COUNT TYF'E KWD I 


■<EF-i;;:Ar % 



6 
7 
ii 
9 
10 
11 
12 
13 

:>CR 


1 

3 

6 
7 
8 
9 
10 
11 
12 
13 



; *TELf<MS < ) < print ke^^* words for current data record > 

LISTLIM DO 

RECSTART DROP C keep data rec in buf . via i;;:|...GCK ) 
;r (i? C 3 e t I':. e y w o r d 11= • p o ii> '3 i b 1 •■.j e ) 

IF OPEN KFILE I READ 

CR KWD -TRAILING TYPE OPEN ' 

THEN 
■2 t-LOOP ,* 

it 76 

CR * " SCREEN 76 1 QUERY LANGC^AG^E " 

: tQ^^ERB: ( index - ) ( print verbi:: index ::i > 

QUERB 

7 ' "yERBS" 3 + + 7 -TRAILING TYPE ? 

I . Q E; J ( k. w d :|- " — ) C p r J. i *t t k. e w o r d n z\ ik e > 
QOBJ (f? DUF' 0-== IF' 2 SPACES ELSE 
OPEN t> SWAP KFILE READ KWD -TRAILING TYPE 
♦ " ; " GF-EN ! T'FIEN ; 

; .QUERY C ) C print Qutspy that created workin^j set ) 

*STEF'S (» :L+ 1 DO 

CR I .QUERB SPACE I ♦QOB^J LOOP ? 



the file. The selections here waste very 
little space on my MicropoHs Mod II 
drive: on each 5.25" diskette I have 304 
blocks divided as shov^n in figure 4. 

It is not necessary to contain the en- 
tire data base on a single diskette as I 
have done. If you have more than one 
drive you can split the files among dif- 
ferent drives to make more room or to 
make the keyv^ords file common to 
several data bases. In a bartering ser- 
vice for example, the same keyword 
file could serve both Wanted and Of- 
fered data bases. Robert F. Cramer 
suggests that indexing is most effective 
when this is the case (1), By defining 
the starting blocks correctly the 
various files could appear anywhere 
within your total disk environment. A 
user with a hard disk would need to 
alter the contents of the various FIBs 
in the load screens to prevent conflicts 
among multiple data bases on the disk. 

Screen 70 contains pre-defined fields 
for the files in the data base. RCNT is 
used with record number zero in 
keyword and data files and holds the 
current record count of the file. KWD 
is the single field in keyword records. 
RECSTART is used by all files to give the 
starting address of the logical record. 
The convention of ! for store and @ for 
fetch is used in @RCNT, IRCNT and 
!KWD. 

A new convention was required to 
replace the word INPUT in the previous 
article since we need to update both 
the keyword and data files directly. I 
use the word NEW-KWD to serve as IN- 
PUT for the keyword file, and NEW-DATA 
(in each data base's load screens) to do 
the same for the data file. 

Screens 71-75 define words used to 
update the index. They require par- 
ticular attention because most of the 
file switching and other tricky code is 
found here. I adopted a convention 
that either a word would take respon- 
sibility for saving on the stack which 
file was open when it started, then 
restore it before leaving, or it would 
ignore such things altogether and 
operate transparently on the current- 
ly open file. The sequences OPEN @ 
and DPEN ! as a matched set indicate 
that the word will be switching the 
open file. 
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After a user has entered the text of 
a keyword in conjunction with an in- 
dex maintenance or query word it is 
placed at PAD. ?NULL checks to see if 
the string entered is null. +NDX takes 
a tuple of data record number and 
keyword number and establishes the 
relationship in the index by turning on 
the proper bit. - NDX does the opposite. 
?KWD uses the contents of PAD to 
search the keywords file and returns 
either the keyword number or zero if 
no match was found. 

To update the list of keywords in the 
data record, LISTLIM provides a range 
of addresses that can be used as DO 
loop limits. ?SLOT uses that range plus 
a keyword number and returns the 
address at which the keyword number 
is found in the list or zero if not found. 
+ KWD and - KWD bring it all together, 
doing error checking and updating 
both the data and index records for 
one keyword. But the only words the 
user needs are +TERMS and -TERMS, 
which take multiple keywords sepa- 
rated by commas and either add them 
to the current data record or remove 
them. .TERMS simply Hsts which key- 
words are associated with the current 
data record. 

Screens 76-81 contain the query 
language words. A query is a list of 
commands that affect the working set. 
.QVERB and .QOBJ are used by .QUERY to 
print out all the steps in the current 
query, one per line. 

NONE; and ALL; fill the working set 
with zeroes or ones respectively. 
?KARG is used by the remaining query 
words to accept a keyword from the 
user and determine if it is vaHd, return- 
ing keyword number if so and quitting 
if not. 

The next five words have left paren- 
thesis as part of their names to remind 
the user that a keyword is required 
after them. SELECT( sets the current 
working set equal to the index record 
of a given keyword. AND( performs a 
logical AND with the working set and 
the index of the named keyword. 0R( 
does the same thing with the logical 
OR operation. ANDNOT( and ORNOT( 
are similar to AND( and 0R( except that 
they complement the index record bit- 
map before doing the AND or OR. Since 

Continued 



5;5CR :||: 77 

i) z\< . " s(::r;:i:;:i:;: N 77 : qiji;;;ry l^ncidac^ie: - 2 " 

2 J N (!) N r-IJ ( ■•■ - ) ( iTi iii I''-. e w c) T- k. .). i"i <ii !;i e \, (■:■? sw v L '.:f ) 

3 MGRKSi;-T MGRKSIZE I":i:L..L C set all b:i.ts orf ) 

^ j. 1|:STEP!;> ! (set Guer-.:/ to be?3i.nn:i.it<-f ) 

Z frSTEPS CHJERB ! C put verb G at line J. ) 

6 # STEPS QGBJ ! j ( no kwd for tlris verb ) 

B : all; ( ■■— ) ( select all data records ) 

? WDRKSiin- woRKSizi:: 251:; f:i:i.j_ 1 Instep;;; ' 
1 1 

12 i ^I'KARG ( kwd# ) < returns valid k.e^:*word# or Guits ) 

;L3 ^1 rEXT ''NULL IF ." NO KEYWORD GI^JEN " QUIT IHIi-N 

1^ .'KWD OUP 0- IE NO SUCH KEYWURO " QUIT Itlii'N i 

CI-;: . " ;;;cREi;;: N 7b : c^uiiiiRY i.„ANi^UA(;;F: a " 

X I SELECT V ( ) C set workin:vi set to one kev^word > 

2 ?KARG or^'EN ^liWAF" Dui-' i;e:ii...i;;; ivi:;:ai:) 

3 RECSTART WORK SET WORK SIZE CH O^JE 

'\ :i. *STi;;:i"'S ! 2 ^ii=S7i;;:i"'S m^^<B ! ^stei-s (i? (jci;;^ i 

6 X AND( < ■■ ) ^ lo^-iical AND woi^kiiv^j set with ke^r^woi'd ) 

7 ?KARG gI"I;;:n (? swai-- di.)!- :i:r-iu;;: read 

8 RECSTART WGRKSET WORK SIZE 2/ .AND 

9 ^«=srEi=''j:; i>- i:STEi--'S i 3 #stef-'S i?? qvi;;:rl;: i 

10 ^sck::!-'*:! qgfm \ gi-'En \ ; 

11 X GRi; ( ) \ lo^^^lcal OR w<:)rk inf.=S set witJi ke^jword ) 

12 ?KAR(:; OPEN (!? SWAP OUP TFILE READ 

13 RECSTART WGRf^lJET WIDRKSIZE 2/ :>0R 

1^ ^B^STFi-'S (j> I t- :ii:STi;;:i"'S \ '\ ii^sti;:i"'S (i? i^vi;-RiH: \ 

V:-\ :||=STIi-l"'S QGIiiiJ I GI"'EN ' ; 

scr^ # 79 

cr< ♦ " sci-^ei:;:n 79 : (Pui;::ry lanicujage ■ '\ " 

1 I ANDNGTC ( ) C AND wotH<.ii",<:( se'L witfi NOT of l'..e^:^word ) 

2 ?KARG GF'EN SWAI"' DUP II-ILIH: RliiiAD 

3 RECSTART PAD WGRKSIZE 2/ : NOT 
PAD WGRKSET WGRKSIZE 2/ :>ANIj 

:5 ii=sti:::ps i'*- #sti;::f'S \ z iMiiTii-F^'S qui;;:ri;;: \ 
6 #sti;;:ps gcdiejj \ iJFi:;:N ! ; 

7 

5 I QRNOT( < GR wor k.irifii set with NGT of iM?-jword ) 
9 '^N<ARG OPEN SWAP OUP lEILL- READ 

10 RECSTARI' PAD WGRKSIZE 2/ -^NGT 

11 PAD WGRKSET WGRKSIZE 2/ :>GR 

12 ^ii^STi;;:i--'S i +- ^i)^s'Ti:;:r-'S i 6 ^ihsri;;;ps gui;-!-;:b \ 

13 ;f:STEPS GGPJ ' OF' EN i ; 
SCI\ W- 90 

CR SCREEN QUERY LANiiUAQE - 5 " 
I 

2 \ FIFcST* ( ) ( re*ii':?t current bit# to be?.-iinnin^ ) 

3 CI WORK* ' i 
'\ 

Ivj : NEXT# ( ) ( return number of next i bit in WGRKSET ) 

6 OPEN OEILE (»RCNT SWAP OPEN ' < <-^et lirnii.t ) 

7 WORK:H= 1+ 2 DUP > NOT < start 1 -PB-^'t last It it ) 
\i IF 20R0P ( no more^l* return a :^eiM:> ) 

9 ELSE :>R SWAP R> < set up zero ret>.,>rn if loop e;:pires ) 

10 00 WGRKSET I ?BIT ( check one bit ) 

11 I!" DROP :i i:)uf:' wgf^kii= > lea^'e ri--ih-N 

1 2 I...OOI--' 

i;;? "CHEN ; 

SCI-;; # 81 

CR SCREEN 01 ; QUERY LANGUAGE - 6 " 

1 

2 I » COUNT < ) < pr int count of workin?:! set ) 

3 FIRSTS ( initialize bit* and count ) 

^ i;:: i;;: c in n e x t" w ni-i i l i;;: i i-;; e r-'i:;: at ♦ ; 

6 * t SET ( — ) ( \ i<;it r ecMijr d -ts :i.ri (::i..ir ei rt 'iiot ) 

7 Fir;:ST# 

G PEGTN NEXT* WHILE WORK* (? . REPEAI i 

?;>CR :|l^ 82 

CR * " sc;f;:ei;;:n 82 : u t ility w(jri:)s - 

1 

2 ? LOAD-DF:i ( ) < reset dc^f aults ^ load user ' s def ' ns > 

3 16 kwo/rec I none; 
1 L.OAO dI"":i:le ; 

15 X USEFv-DEi; ? < dullll^l^^ header to start 'jser ' s def ' ns ) 
Listing continued on next page 
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INDEXER (continued) 



( The Indexer 



sample session ) 



ok 

FLUSH ok 
LOAD-DB ok 
ok 
ok 

7~31nce this Is a new database, we have to enter ) ok 

( the keyword terms we Intend to use. ) ok 

ok 

kFilE ok 
NEW-KWD 

ENTER NEW KEYWORD: BICYCLING 

BICYCLING ok 

og 

NEW-KWD 

ENTER NEW KEYWORD; BRAIN/MIND 
BRAIN/MIND ok 



ok 
TTEW-KWD 

ENTER NEW KEYWORD: COMPUTERS 

COMPIJ'I'ERS ok 

ok ' 
TTEw-KWD 

ENTER NEW KEYWORD: NETWORKING 
NETWORKING ok 

ok ' 
ok 

T~Now add some data records and Index them ) ok 
ok 

dFile ok 

NEW-DATA 

Enter contact name : JEFFREY SCHWINN 
Enter telephone if: T 805) 555-1212 
Enter network address: TZA999 

JEFFREY SCHWINN (805) 555-1212 T2A999 

ok 

+TERMS BICYCLING, NETWORKING 

BICYCLING 

NETWORKINGok 

ok 

FSW-DATA 

Enter contact name: MARK I. RIS 
Enter telephone : ("6l9) 555-3730 
Enter network address: 123^15.765 

MARK I. RIS j6l9) 555-3730 123^5.765 

ok 

+TERMS COMPUTERS, BRAIN/MIND, NETWORKING 

COMPUTERS 

BRAIH/MIND 

NETWORKIN"Gok 

ok 

flEW-DATA 

Enter contact name: SHERRIE JOLLYGOOD 
tilnt^r telephone #: T 713) 555-9317 
Enter network address: (none) 



ERRIE JOLLYGOOD 



(713) 555-9317 (none) 



+TERMS NETWORKING, COKPUTEHS 

NETWORKING 

CoM^'U'fERgok 

ok 

TIEW-DATA 

Enter contact name: M O TOBE CANE 

Enter telephone li't'T ^lS) 555-1031 

Enter network address: OMNI/1031/CZ 

MO TOBE CA^E (ttl5) 5 5 5-1031 _ 



OMKI/1031/CZ 



ok 

+TERMS NETWORKING. BICYCLING 
NETWORKING 

5"xcrCLINGok: 
olc 

7~Now we can process the database for specific keywords ) ok 
ok — 
SELECT ( NETWORKING) ok 
.COUNT tt 
ok 

A^TdC BICYCLING) ok 

.COUNT 2 ok 

.SET 1 ok 
ok 

T^UERY 

SELECT ( NETWORKING) 
A}itl( BididitNG) ok 
ok 
ok 

T"Mak;e a special purpose word to print "hits" ) ok 
: TELLME FIRST* BEGIN NEXT* WHILE WORK* 8 REXD 

ok 

tEllme 

JEFFREY SCHWINN (805) 555-1212 TZA999 



REC REPEAT ; ok 



MO TOBE CANE 



(^15) 555-1031 0HNI/1031/CZ 



ok 
ok 

F^USH ok 



each command in FORTH is executed 
left to right, all operators are at equal 
precedence and are interpreted in the 
order given. 

Multiple commands can be given on 
a line if right parentheses are used as 
delimiters between them. SELECT( 
ARTS) AND( HABfTATS) is an example 
of a valid query. 

The next two query words enable a 
user to process the working set. FIRST# 
sets the current bit number in WORK# 
back to zero. NEXT# returns the record 
number of the next member of the 
working set or zero if there are no 
more. 

.COUNT and .SET are examples of us- 
ing FIRST#and NEXT#. They interrogate 
the working set and for each member 
perform some action (.COUNT just in- 
crements a tally on the stack and prints 
the total when done; .SET prints the 
record number of each member.) 

LOAD-DB resets some default values 
and starts loading the user's data base 
definition screens. USER-DB is another 
null word that can be used to FORGET 
a data base and load another without 
having to reload the Indexer. 

The case study included with this 
article is an index of resource persons, 
their telephone numbers and compu- 
ter network addresses. Starting with a 
newly formatted diskette, with all 
binary zeroes in each block, the defini- 
tions shown were typed onto screens 
1-3 using a FORTH text editor. Then 
the Indexer was loaded. 

In the sample session, a FLUSH is first 
done to end off processing the pre- 
vious data base, if any. Then LOAD-DB 
resets some variables and loads the 
user's data base definitions. Next the 
keywords file is opened by the word 
KFILE, and NEW-KWD is used to enter the 
keywords that will be describing data 
records in this data base. This only 
needs to be done at the beginning or 
when additional terms need to be 
defined. Four terms are defined in the 
sample: BICYCLING. BRAIN/MIND, COM- 
PUTERS and NETWORKING. 

Data records are then added to the 
data base using the word NEW-DATA. 
After each record is entered, the key- 
words applicable to it are entered via 
-h TERMS. In the sample, a total of four 
people are entered into the data base 
with a variety of interest keywords 



End of Listing 
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TRANSPORTABLE SOFTWARE 



associated with them. -TERMS could 
have been used to remove a keyv^ord 
from a particular data record, to cor- 
rect errors or reflect a change; .TERMS 
could have been used to check v^hich 
keyv^ords are defined for the current 
data record. 

Once a data base exists, v^e can use 
the query language to extract a subset 
of it. In the example, v^e first choose 
a v^orking set equal to all people in- 
volved in networking using the SELECT( 
NETWORKING) query. .COUNT tells us 
that this includes everyone. To narrow 
the search, we use AND( to require 
''hits" to also be into bicycling. .COUNT 
now tells us the working set consists 
of two members, and .SET Hsts their 
record numbers: 1 and 4. 

At this point we can use READ to 
make one of these the current record, 
and process it in some manner; we 
decide instead to define a new word 
that will print the record image for all 
records in the working set. This we 
give the name TELLME, and when ex- 
ecuted we get a listing of records 1 and 
4. Finally, we do another FLUSH before 
removing our newly updated data base 
from the drive. 

IMPLEMENTATION NOTE: This 
program was written using A-FORTH, 
a version which runs on Z80/8080 
systems under Micropolis MDOS 
operating system. You should be 
aware that ' (tick) is immediate in A- 
FORTH, and that the block size on the 
diskette is 1024 bytes. 
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fig-FORTH and FORTH-79 Model Systems for: 

DEC PDP-11 
RSX-1 1 M 

• Multi-User 

• Multi-Tasking 

• Re-entrant Resident Library 

• Sliared Commons 

• RSX-1 1M Directive Support 
RT-11 

• Compatible witli RSX-11M System 

• RT-11 Programmed Request Support 

IBM PC 

PC-DOS 
CP/M-86 

• ROM BIOS Support 

• Stand-Alone 

TRS-80 

TRSDOS 

• ROM Support 

• Stand-Alone 

Data Base Support 

Data Language including: 

• Base Relative Variables 

• Advanced String Package 

• Many Classes of Arrays 

Key File Support 

• Hashed Search 

• Binary Search 

Additional features: 

• Input and Output Forms Support 

• Screen Editors 

• Execute Variable Support 

• Extended Memory Support 

• Additional Control Structures 

• Trace Support with Stack Snapshot 

• Decompiling 

• Text Formatting 

• Time and Date Support 

• Double Integer Support 

• Floating Point Support 

Transportable System Development 

• Consulting Services 

• Systems Analysis and Design 

• Communications 

• Networking 

• Encryption 

• Full Sources Available 

Contact: Transportable Software, Inc. 
P.O. Box 1049 
Hightstown, NJ 08520 

fig-FORTH and FORTH-79 are trademarks of Forth Interest Group • DEC PDP-1 1 RSX-1 1 M RT-1 1 are trademarks 
of Digital Equipment Co. • IBM PC PC-DOS are trademarks of International Business Machines Co. • CP/M-86 is a 
trademark of Digital Research Co. • TRS-80 TRSDOS are trademarks of Tandy Co. 
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DEVELOPMENT TOOLS 



Develop FORTH code for any target 
8080/Z80 system on your current 8080/Z80 
or Cromemoo CDOS based system 




8080/Z80 METAFORTH 
CROSS-COMPILER 

• Produces code that may be downloaded to any Z80 or 
8080 processor 

• Includes 8080 and Z80 assemblers 

• Can produce code without headers and link words for up to 
30% space savings 

• Can produce ROMable code 

• 79 Standard FORTH 

• Price $450 



No downloading - No trial PROM burning. 
This port-addressed RAM on your S-100 host 
is the ROM of your target system 




WORD/ BYTE 

WIDE ROM SIMULATOR 

• Simulates 16K bytes of memory (8K bytes for 2708 and 2758) 

• Simulates 2708, 2758, 2516. 2716. 2532, 2732, 2564 
and 2764 PROMS 

• The simulated memory may be either byte or 16-bit 
word organized 

• No S-100 memory is needed toehold ROM data 

• Driver program verifies simulated PROM contents 

• Price $495 each 



CONSULTING SERVICES 

Inner Access provides you with Custom Software Design. We have supplied many clients with 
both Systems and Application Software tailored to their specific needs. Contact us for your 
special programming requirements. 



FORTH WORKSHOPS 

ONE-WEEK WORKSHOPS - ENROLLMENT LIMITED TO 8 STUDENTS 



FORTH 

Fundamentals 

• Program Design 

• Program Documentation 

• FORTH Architecture 

• FORTH Arithmetic 

• Control Structures 

• Input/Output 

• The Vocabulary Mechanism 

• Meta-Defining Words 

OCT. 4-8 NOV. 8-12 
JAN, 3-7 FEB, 7-11 

$395 Incl. Text 



Advanced FORTH 
Applications 

• FORTH Tools 

• Engineering Applications 

• Floating Point 

• Communications 

• Sorting & Searching 

• Project Accounting System 

• Process Control 

• Simulations 

NOV. 15-19 
FEB. 14-18 

$495 IncL Text 



Advanced FORTH 
Systems 

• FORTH Internals 

• Assemblers and Editors 

• Other Compilers 

• Cross-Compilation Theory 

• Romability, Multitasking, 

Timesharing 

• File Systems/ 

Database Systems 

OCT. 11-15 
JAN. 10-14 

$495 Incl. Text 



R 



Instructors: LEO BRODIE, GARY FEIERBACH and PAUL THOMAS 
(For further information, please send for our complete FORTH Workshop Catalog.) 

Inner Access Corporation 

P.O. BOX 888 • BELMONT, CALIFORNIA 94002 • (415)591-8295 
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A PICTURE Worth a 1000 Words 



EJmer W. Fittery 
International Computers 
St. Louis, Missouri 



This article describes a set of words which we use to 
create user-friendly video display screens for data input 
and output in business applications. 

The general defining word PICTURE creates classes of 
data structures (e.g., alpha, 32-bit dollar amounts, etc). The 
name of each of these classes is also, in turn, a defining 
word which creates individual fields of that data type, with 
a specified location on the screen and a specified text 
description. Let's look at some examples: 
EXAMPLE #1 - Use PICTURE to build an input/output field 
for names of real estate companies you contact concern- 
ing buying beach front property. Assume names are less 
than 20 characters in length. Input/output is to occur on 
row 5, column 0. 
SOLUTION - 

"A20" PICTURE 20ALPHA 

5 " COMPANY NAME: " 20ALPHA [COMPANY.NAME] 

The solution is a two step process. First we used the 
word PICTURE to build the word 20ALPHA. The A in the 
string preceding PICTURE specifies the word built by PIC- 
TURE will build alpha/numeric-input/output fields. The 20 
following the A specifies allow for input/output of 20 bytes. 
After building 20ALPHA I build the actual input/output field 
[COMPANY.NAME]. Now let's use this mysterious word [COM- 
PANY.NAME] I built with 20ALPHA. 

By typing HEAD [COMPANY.NAME] your cursor is posi- 
tioned to column = 0, row = 5 and the field heading for the 
word [COMPANY.NAME] i.e. COMPANY NAME: is typed. 

By typing PUT [COMPANY.NAME] your cursor is positioned 
to column = 0, row = 5 and the field heading for [COM- 
PANY.NAME] i.e. COMPANY NAME: is typed. Subsequently 
text in PAD for 20 characters is typed. 

By typing GET [COMPANY.NAME] the cursor is positioned 
to column = 0, row = 5 and the field heading for [COM- 
PANY.NAME] is typed — 20 spaces are typed in inverse video 
following video — the cursor is positioned to the first posi- 
tion of the inverted video field. Input may then proceed 
until the inverted video field is filled. If you try to input 
too many characters a bell will sound. To specify you are 
finished with input press your return key. The return key 
is that key which responds with 13 when you execute KEY. 
If data is entered it is placed at PAD and a flag of 1 will be 
placed on the stack, otherwise a false flag of will be 
placed on the stack. 

By typing PUT4GET [COMPANY.NAME] a PUT [COM- 
PANY.NAME] will be performed followed by a GET [COM- 
PANY.NAME]. If the GET [COMPANY.NAME] returns a false flag. 



the PUT [COMPANY.NAME] will be performed again. NOTE: 
A false flag specifies no input was done, a true flag 
specifies input was done, and data is at PAD, 

Usually the PUT&GET mode is used for displaying default 
information, then allowing the user to accept the default 
or enter his own information. 

This was the first of three examples in using PICTURE. If 
you have a FORTH system running get the code PICTURE 
running and try the above example. 
EXAMPLE #2 — Build an input/output field for cost of 
beach front property. This field is to display the cost in the 
following format. $Z,ZZZ,ZZ9.99 where Z specifies zero 
suppress, 9 specifies hard digit output and the dollar sign, 
comma and decimals mean outputing those characters 
when appropriate. This field is to start on row = 8, 
column = 0. 
SOLUTION - 

" $z,zzz,zzg.gg" picture 2Dollar 

8" PROPERTY COST: " 2D0LLAR [PROPERTY.COST] 

The HEAD, GET. PUT and PUT4GET modes function exactly 
the same as when using them with an alpha/numeric in- 
put field. Data input/output is handled a little differently. 
First only digits 0-9 are allowed as input, second input is 
from right to left (NON-PROGRAMMERS are more 
familiar with calculator style input). 

By typing HEAD [PROPERTY.COST] the cursor is positioned 
to row = 0, column = 8 — and the heading is typed out. 

By typing PUT [PROPERTY.COST] the HEAD function is per- 
formed, the double number (32 bit value) is masked ap- 
propriately then displayed. 

By typing GET [PROPRTY.COST] the HEAD function is per- 
formed, input from the field is commenced. Every time a 
key 0-9 is pressed, the new value is displayed properly for- 
matted. The number of Z*s and 9's used when building 
2D0LLAR specify the maximum number of digits to be in- 
put. Exceeding this limit will cause a bell to sound. When 
you press the return key, a true flag will be placed on the 
stack above the double, i.e., a 32 bit value if input was done, 
otherwise a false flag will be placed on the stack. 

By typing PUT4GET [PROPERTY.COST] the PUT function is 
performed, followed by the GET function. If the PUT4GET 
causes a false flag to be placed on the stack the original 
value displayed by the PUT function will be redisplayed. 
In all other respects the PUT4GET function is the same as 
the GET function . 

EXAMPLE #3 — Define an input/output field for area 
codes. It is to be of the form (999) where 9 specifies a hard 
digit. The field is to be on row = 10, starting at column = 35. 
SOLUTION - 

" (999)" PICTURE 16DIGIT 

35 10 " AREA CODE: " 16DIGIT [AREA.CODE] 

[AREA.CODE] functions the same as [PROPERTY.COST] 
except it handles 16 bit values as opposed to 32 bit 
values. I want to get into some technical stuff now. When 
PICTURE builds a word the character string proceeding the 

Continued 



FORTH Dimensions 



19 



Vo<ume IV, No 5 



PICTURE (continued) 



word PICTURE is examined to determine whether PICTURE 
is to build an alpha/numeric, double, or single input/out- 
put building word. In the case of alpha/numeric fields, the 
count for the input/output field is determined by looking 
at the character sequence following the A — in our first 
example it was 20. This specified a 20 byte alpha/numeric 
input/output field building word was to be created by 
PICTURE. If A25 was used in place of A20 in example #1 
you would have built a 25 byte alpha/numeric input/ 
output field building word. In the case of numeric input/ 
output the digits allowed to be input is determined by the 
number of Z's and 9's, the output window size is defined 
to allow all digits and all mask characters to be displayed. 
The other problem I had to address was — does a word 
built by PICTURE build words handhng 16 bit values or 32 
bit values? My approach to this problem follows. 

16 bit values may only display numbers from to 9999, 
i.e., I do not handle negative numbers, and I do not try to 
process numbers larger than 10,000 with a 16 bit field 
handling word. 32 bit values may only display numbers 
from to 9,999,999,999 — again no negative numbers. Not 
handling negative numbers and numbers above 
9,999,999,999 is only a matter of what my applicaiton code 
needs are. If the total number of Z's and 9's is greater than 
5, PICTURE will build a word which builds 32 bit input/out- 
put handling fields, otherwise it will build a word which 
builds 16 bit input/output handling fields. 



Figure 1 shows an example of using my screen handling 
technique. 

As you can see changing headings for fields, changing 
the position on the screen where input/output fields pro- 
cess data, changing masks used by fields is very simple. 
Simple screens may be built in 15 minutes, while very 
detailed screens may be built in approximately one hour. 

One final note, when you set your mode it remains the 
same until you change it. I.e., in the word DISPLAY- 
SCREEN, HEAD is in effect when all field words are executed. 

Feel free to use this code for personal use. Contact us 
concerning commercial use. Our hardware consists of a 
IBM Personal Computer, two Apples, three floppy drives 
and one lOmeg Corvus drive. Our software development 
system supports: 

1. Index files which allow access to any of 1,079,127 
records by key in two disk reads, (Based on 6 byte key and 
a 16 byte record.) 

2. Direct files which allow access to any of 2,147,483,647 
records in one disk read. 

3. Merge sort package, report generator binary overlays, 
head and link stripping vocabulary which stores stripped 
names and links on disk. 

For more information contact Elmer W. Fittery at Inter- 
national Computers, 13048 Olive Blvd,, St. Louis, MO 
63141, (314) 878-3228. □ 



Figure 1 



" A2" 




PICTURE 


2ALPHA 




'■ A20" 




PICTURE 


20 ALPHA 




" A25" 




PICTURE 


25ALPHA 




" A30" 




PICTURE 


30ALPAH 








PICTURE 


64ALPHA 




" $Z, ZZZ, ZZ9. 99' 




PICTURE 


DOLLAR. MASK 




" <999) " 




PICTURE 


AREA. MASK 




" 999-9999" 




PICTURE 


PHONE. MASK 




" 99999" 




PICTURE 


ZIP. MASK 




00 02 " REALTOR; 




20 ALPHA 


[COMPANY. NAME] 




00 04 " SALESMAN: 




30ALPHA 


[SALESMAN. NAME] 




00 Oh '■ STREET: ' 




25ALPHA 


[STREET. ADDRESS] 




00 OS " CITY: " 




20ALPHA 


CCITYJ 




30 08 " STATE: " 




2 ALPHA 


[STATE] 




40 08 " ZIP CODE: 




ZIP. MASK 


[ ZIP. CODE] 




00 10 " AREA CODE: " 


AREA. MASK [AREA. CODE] 




20 10 " PHONE# : 




PHONE. MASk [PHONE. NUMBER] 




00 12 " PROPERTY 


DESCRIPTION: 


" 64ALPHA [DESCRIPTION] 




00 14 " PROPERTY 


COST: 


DOLLAR, MASK [PROPERTY. 


COST] 


To display the -full 


screen - 






: DISPLAY-SCREEN HEAD 


[COMPANY, NAME] [SALESMAN. 


NAME] 


CSTREET. address: [CITY] CSTATE3 CZ IP. CODE] 




[AREA. CODE] [ PHONE . NUMBERS 




[ DESCR I FT ion: C PROPERTY . COST 3 ; 
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SCR 

1 



# 130 

f SCREEN GEN 



1 OF 5 



(092881 eWF) 



C 0329B2 EWF) 



O CONSTANT CRT: FLAG 
CONSTANT CRT: ARRAY 

: HEAD O ^ CRT: FLAG 

: PUT 1 ' CRT; FLAG 

: GET 2 ' CRT; FLAG 

: PUT. GET 3 ' CRT: FLAB 



£3 

9 — 
10 
1 1 
12 
13 
14 
15 

FIND -> 



SCR # 131 



I NSER T 



C 032982 EWF) 



6 

7 

8 

9 
1 
1 1 
12 
13 

14 - 
15 

FIND 



SCR # 

O ( 
1 



(HEAD:ADDR> CRT; ARRAY 4 + S) ; 
(HEAD;CNT) CRT: ARRAY 2 + 5 ; 
(HEADER) (HEAD:ADDR> <HEAD:CNT.> ; 
(HEAD:XY.) CRT:ARRAY 8 -t- 3 

CRT: ARRAY 6 + :D : 
(MASK: TYPE) CRT: ARRAY 3 2+ ; 
fMASK:ADDR) CRT; ARRAY 3 6+3: 
(MASK;CNT) CRT: ARRAY * 4 3 ; 
( MASKER ) ( MASK : ADDR > ( MASK : CNT ) 

(DIGIT: CNT) CRT: ARRAY 3 S ; 
(MASKbXY) (HEAD:XY> SWAP 
(HEAD: CNT) SWAP : 



SCREEN BEN 



INSERT 



(092881 EWF ) 



329B2 EWF) 



8 
9 
1 
1 1 
12 
13 
14 
15 



(MASK) CRT: ARRAY S> 3 + d EXECUTE 
(MASK: CNT) OVER - SPACES : 

PUT; HEADER ( HEADER ONLY > 
(HEAD;Xy) XY (HEADER) TYPE 
(MASK: CNT 1 SPACES 
(MASK:XY) XY ; 

PUT: STRING 

PUT ; HEADER PAD ( MASK : CNT ) TYPE 

PUT : MASKED ( MASK ; X Y ) X Y 
(MASK) TYPE ; — > 



I NSERT 



500 ( LEAVE +LaOP ) 
4 C! 



SCR # 133 

O 

1 VARIABLE #CNT 

2 : ASK PB 1+ 

3 DO KEY DUP 13 = 

4 IF DROP I ttCNT 

5 ELSE DUP 8 = 

6 IF R IF BS SPACE 32 PAD I 1 

7 ELSE DROP 7 

8 THEN R> 1- O MAX >R O SWAP 
ELSE R> R> 2DUP >R >R 1- = 

10 IF DROP 7 

1 1 ELSE DUP 1 R0T2 PAD I + C : 

1 2 THEN 

13 THEN EMIT 

14 THEN 

15 +LOOP ; — > 



0329Q2 EWF) 



FIND 

Listing continued on next page 



INSERT 




for FORTH 
software of 
professional quality. 

* ready to-run 
FORTH development 
systems 

* application programs 

in FORTH 

* Consulting services, 

including custom 
program development 

Our latest product: 

DUAL TASKING 
FORTH 

Now you can run your 
process control programs 
in background while still 
using your FORTH 
system in the normal way 
Background and 
foreground tasks may 
each be written in high 
level FORTH. They can 
execute simultaneously 
and exchange data. The 
foreground task can 
control the background 
task. 

Available NOW: 

8" diskette $285 

Write for our FORTH 
information booklet 

Cp^Qrimin Engineering Co. 

QrCyQ ^^^^ Erianger St. 
no Diego, 
^ ^ CA 92122 

(714) 455-9008 
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Period I 
\Softu/are Systems\ 

presents j 
MARX FORTH VI .4 { 

$150 { 

For the j 

ATARI j 
RADIO SHACK 
NORTH STAR DOS ! 
CPM j 
POLYMORPHIC i 

S Marx Forth is not just another warmed i 
j over Fig Forth. This 79-83 standard 
j Forth has been completely rewritten to 
j include advanced coding techniques not < 
i available in most systems. j 

) Marx Forth package includes: ( 

} • Complete source code \ 

i • Screen editor j 
( • Double number word set 

j • Forth style macro assembler ( 

j • Standard Marx Forth extension word set ( 

i Extensions Include: j 

) • Case • File system \ 

) • Arguments - Results • Disk directories I 

r • Printer controf • String word set j 

j • Cursor control • Recursion j 

j Internal advancements include: 

1 • Links in front of names ( 

j • Fast math < 

) •No names on internal words ( 

f • Super fast compiler ' 

5 • New 83-standard circular DO-LOOP ] 

! • DO-LOOP executes times if arguments { 

J are equal ( 

j • LEAVE leaves immediately J 

- Multiple WHILES ( 

} • Vocabulary trees without vocabulary Imks * 

( • Compiler security j 

1 • 1 byte relative branches for conditionals 

) • Smart CMOVE 

) • Machine code where it counts i 

( Ail Marx Forths are compatible and most code 

{ written on one system will run on any other with no ^ 

j mcdifications. I 

} Also available: the Marx Forth target compiler. This ' 
I allows your program to be compiled into a stand alone ' 
) object file that doesn't need Forth in the system to run. 

) The Marx Forth application software development i 

I system is available to software houses. This package in- < 

I eludes Marx Forth for all systems we support including ' 

( the target compilers. This allows software to be devel- ' 

( oped for many computer systems simultaneously as ^ 

) well as having the most powerful compiler available. , 

j These applications can be target compiled to run on all i 

J computers for which Marx Forth is available and mar \ 

) keted without the end user ever knowing it was written i 

) in Forth. Call (or details. ' 

( Marx Forth model license is available for Forth ven- | 

) dors who want to improve their product or implement \ 

) Marx Forth for another machine. Call for marketing i 
) incentives. 

COMING SOON: Marx Forth for the IBM PC and 
) Apple and Marx Multi tashin;) Forth for the larger 

; systems. i 

Vermel Software Systems \ 

1452 NORTH CLAY \ 
SPRINGFIELD, MO. 65802 
(417) 862-9830 or (417) 883-3709 

i Consulting Services available , 
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134 

:i)STRIN6 ASK MCNT :i) O 



032982 EWF) 



ttCN 1 



) 



GET: STRING PUT: HEADER INVERT CRT:FLhG 2 = 
IF PB THEN PAD (MASK:CNT) TYPE 
i. MASK : X V ) X Y (DIGIT: CN T ) ."iS TR I NG 
( MASK ; X Y .> X Y p AD ( M ASK: : CNT > NORMAL TYPE 

PUT^^GET: STRING PUT: STRING GET: STRING ; 



10 - 
1 1 
12 
13 
14 

FIND 



SCR # 

( 

1 : 



6 
7 
3 

10 
1 1 
12 
13 
14 
15 



INSERT - 



(092831 EWP> 



M+ 1 



135 

SCREEN GEN 3 OF 5 

.i)NUMBER 1+ 0. 2SWAP 
DO KEY 13 OVER = 

IF DROP I ttCNT ! 500 
ELSE 48 57 ROT RANGE? 

IF R> R> 2DUP >R >R 1- = 
IF DROP 7 EMIT O 
ELSE >R 10 D*S R> 48 
THEN 
ELSE 8 = 

IF R> 1- O MAX >R 10 D/S 
THEN 

THEN 3 PICK 3 PICK (MASK: TYPE) 1 = 
IF DROP THEN PUT: MASKED 
THEN 

+LaDP #CNT 3 IF 1 ELSE 2DR0P THEN O #CN f 

INSERT 



32982 EWF) 



SCR # 136 



i:il29B2 EWFi 



PUT?GET:SGL PUT: HEADER INVERT 
CRT; FLAG 2 = IF THEN DUP 
PUT : MASKED ( D I G I T : CN T ) i>NL!MBER 
IF DROP SWAP DROP 1 OVER 
ELSE O SWAP 

THEN NORMAL PUT PUT: MASKED ; 

: PUT?GET:DBL PUT; HEADER INVERT 
CRT: FLAG 2 = IF .0 THEN 2DUP 
P Li 1 : MASK ED ( D I G I 1 : C N T ) .i)NUM B t R 
IF 2 SWAP 2DR0P I 3 PICK 3 PICK 
ELSE O RGr2 

THEN NORMAL PUT PU 1 : MASKED ; — 



IMSER T 



CR 


# 137 





1 


( SCREEN GEN 4 OF 


u:)^28Bl 




: PUT: NUMBER ( HEADER+PUT ) 






PUT: HEADER PUT: MASKED ; 




4 








: FUT7GET: NUMBER ( HEADER+PUT 


^GET) 


6 


(MASK: TYPE) 2 = 




7 


IF PUT?GET:DBL 




S 


ELSE PUT?GET:SGL 




■■■? 


THEN ; 




10 






1 1 






12 






I 3 
14 
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FIND 



INSERT - 
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BCR 133 



01.2982 EWF) 



CRT: ACTION 
< BUILDS 4 O 
+ :iD EXECUTE 



LOOP does; swap 2 * 



P IJ T GE T : MUM BE R CF A ^ P LH 7 GE t : NUMBER CP A 
PUT: NUMBER CPA " PUT: HEADER CPA 

C R T : AC 7' I ON NUM B E R : A C T I ON 



9 
10 
L 1 
12 
13 
14 



F*UT?<(5ET : STR I NG CPA 
PUT: STRING CPA 
CRT: ACTIUN STRING: ACTION 



GET: STRING CPA 
PUT: HEADER CPA 



SCR 



# 13^ 

SCREEN GEN 



f092B81 EWP> 



:t329S2 EWP> 



: R (NASK: fVPE) 



10 
1 1 
12 
13 
14 
IS 



:.1R #CNT + ' 



3 
9 
1 
1 1 
12 
13 
14 
IS 



5CR 
O 
1 



6 
7 
8 
9 
1 
1 1 
12 
13 
14 
IS 



ACTION CRT: FLAG DUP 
IP STRING: ACTION 
ELSE NUMBER: ACTION 
THEN R> ' CRT: FLAG f : 

GET-COUNT #CNT ' OVER 03 65 
IF 2DUP PE 1 -1 D+ 33 -NUM:' 

IP DROP ELSE QUIT THEN 
ELSE 2DUP 1+ OVER + SWAP 
DO I C;S 90 = I C;D 57 = 

LOOP #CNT ;D 
THEN ; 

STRING: FLD-^ OVER 65 = : 



140 

SCREEN GEN 5 OP '5 (092881 EWF > 

GET-TYPE STRING:PLD? 
IF 

ELSE #CNT ;i) 5 

IP 1 ELSE #CNT .i) 10 IF 2 ELSE 
THEN ; 
ACTUAL-KEEP 

: ADDRESS UP MASK/TYPE ARRAY ) 
( ADDRESS OP HEADER i 
; LENGTH OP HEADER > 
;. Y POSITION HEADER ^ 
; X POSITION OF HEADER > ; 

ACTUAL < BUILDS ACTUAL -KEEP DOES> 

' CRT: ARRAY ' ACTION : 
*? (MASK:ADDR> Co) 36 = IF 36 HOLD THEN 



THEN THEN 



V82 EWF) 



MOD IP 3->D THEN 

' ADDRESS (3F MASK. 



MASK-BUILDER (MASK: TYPE- 
(MASKER) OVER + 1 
DO I CJ) 5 7 
IF # -1 

ELSE I CD 90 = 

IF- 2DUP DO= IP *? LEAVE ELSE # THEN 
ELSE I 1+ C:D 90 = 
IF 20 UP DO= 

IF *? -lOOO 

ELSE I C:il HOLD # -2 

THEN 

ELSE I C5) HOLD 1 
THEN 
THEN 

THEN ^-LOOP # ■ ; - > 



SCR # 142 

O y y. 

I 

2 : PICTURE-KEEP GET-COUNT DUP >R 

3 , ( GET NUMBER OP 2. 9. OR A i 

4 GET- TYPE DUP , ( 0= ALPHA, 1=B INGLE. 2- DOUBLE, 

5 IF R> DROP ELSE DROP R: THEN 

6 , V MASK SIZE 1 

7 , < MASK ADDRESS ) 

3 MASK-BUILDER CPA , i EXECUTE WORD '> : 

10 : PICTURE : BUI CDS PICTURE -KEEP DOES> ACTUAL ; 

End of Listing 



^2982 EWF) 



?-TRIRLE> 



means VALUE in . . . 



DATA COMMUNICATIONS 
PRODUCTS 

• BitSwitch transfer switches 
(up to 6 ports)* 

• Break-out boxes 

• Gencder cliangers 

• Cable assemblies 

• Connectors 

• Otiner lnard-to-fin(d items 

We offer value in quality, 
delivery & pricing 

*BitSwitcln is tine lowest priced AB 
switch that switches all 25 lines. 

Write or call for our catalog. 



PRODUCT DEVELOPMENT 
SERVICES 

• studies 

• Hardware/Software development 

• Mechanical design 

• Documentation 

• Prototype fabrication/ testing 

• Manufacturing 



-Complete development and 
consulting seA/ices 

-Fixed bid or hourly rote 



Write or call 
for our descriptive brochure 



DEVELOPMENT ASSOCIATES 

1520 S. Lyon 
Santa Ana, CA 92705 
(714) 835-9512 
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Z-80®and 8086 FORTH 

PC/FORTH"" for IBM® Personal Computer available now! 



FORTH Application Development Systems include interpreter/compiler with virtual memory 
management, assembler, full screen editor, decompiler, demonstration programs, utilities, and 130 
page manual. Standard random access d/sk files used for screen storage. Extensions provided for 
access to all operating system functions. 



Z-80 FORTH for CP/M® 2.2orMP/M $ 50.00 

8086 FORTH for CP/M-86 $100.00 

PC/FORTH for IBM Personal Computer $100.00 

Extension Packages for FORTH systems 

Software floating point $100.00 

Intel 8087 support (PC/FORTH, 8086 FORTH only) $100.00 

AMD 9511 support (Z-80, 8086 FORTH only) $100.00 

Color graphics (PC/FORTH only) $100.00 

Data base management $200.00 

Symbolic Interactive Debugger (PC/FORTH only) $100.00 

Cross Reference Utility $ 25.00 

Curry FORTH Programming Aids . $150.00 

PC/GEN^"^ (custom character sets, IBM PC only) $ 50.00 



Nautilus Cross-Compiler allows you to expand or modify the FORTH nucleus, recompile on a host 
computer for a different target computer, generate headerless code, and generate ROMable code 
with initialized variables. Supports forward referencing to any word or label. Produces load map, list 
of unresolved symbols, and executable image in RAM or disk file. No license fee for applications 
created with the Cross-Compiler! Prerequisite: one of the application development systems above 
for your host computer. 

Hosts: Z-80 (CP/M 2.2 or MP/M), 8086/88 (CP/M-86), (BM PC (PC/DOS or CP/M-86) 



Targets: Z-80, 8080, 8086/88, IBM PC, 6502, LSI-11 , .68000, 1802, Z-8 

Cross-Compiler for one host and one target $300.00 

Each additional target $100.00 

AUGUSTA™ from Computer Linguistics, for CP/M 2.2 $ 90.00 

LEARNING FORTH, by Laxen& Harris, for CP/M $ 95.00 

Z-80 Machine Tests Memory, disk, console, and printer tests 

with all source code in standard Zilog mnemonics $ 50.00 



All software distributed on eight inch single density soft sectored diskettes, except PC/FORTH on 5V4 inch soft sectored 
sing/e sided double density diskettes. Micropolis and North Star disk formats available at $10.00 additional charge. 

Prices include shipping by UPS or first class mail within USA and Canada. Overseas orders add US$10.00 per package for air 
mail. California residents add appropriate sales tax. Purchase orders accepted at our discretion. No credit card orders, 

Laboratory Microsystems, Inc. 

4147 Beethoven Street 
Los Angeles, OA 90066 
(213) 306-7412 

Z-&0 is a registered trademark of Zilog, Inc. 

CP/M is a registered trademark of Digital Research, Inc. Augusta (S a trademark of Computer Linguistics 

IBM is a registered trademark of International Business Machines Corp, PC/FORTH and PC/GEN are trademarks of Laboratory Microsystems 
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pORTH Programming fyos 

from Curry Associates 



Forth Programming Aids is 

a software package containing 
high-level FORTH routines that 
allow you to write more efficient 
programs in less development 
time. It is also useful for 
maintaining existing FORTH 
programs. The FPA package 
includes four modules: 



TRANSLATOR provides a 
one-to-one translation of 
FORTH run-time code. 



CALLFINDER finds calling 
words, i.e. calls to a specific 
word. 



DECOMPILER generates 
structured FORTH source code 
from RAM and inserts program 
control words (e.g., IF, ELSE). 

SUBROUTINE DECOMPILER 

finds called words, /.a, words 
called by a specific word, to all 
nesting levels. 



Forth Programming Aids 

enables you to: 

■ Minimize memory require- 
ments for target systems by 
finding only those words used 
in the target application. 

■ Tailor existing words (includ- 
ing nucleus words) to specific 
needs by decompiling the 
word to disk, editing, and 
recompiling. 

■ Build on previous work by 
extracting debugged FORTH 
routines (including constants 
and variables) from RAM to 
disk. 

■ Patch changes into existing 
compiled words in seconds. 

Forth Programming Aids 

comes with complete source 
code and a 50-page, indexed 
manual. 



The DECOMPILER alone Is 
worth a second look. This is a 
true decompiler which converts 
the FORTH words in RAM into 
compilable, structured FORTH 
source code, including program 



You can decompile one word, 
or a range of words at one 
time — even the whole FORTH 
system! This decompiled output 
may be sent by FPA options to 
the console, printer, or disk. 



control words such as IF, ELSE, 
THEN, BEGIN, etc. If you ask 
FPA to DECOMPILE the nucleus 
word INTERPRET, you get the 
following output displayed on 
your terminal within 3 seconds: 



DECOMPILE is useful for look- 
ing up words, or for obtaining 
variations of words by decom- 
piling to disk, editing, and 
recompiling. 



( NFA?.:PFA: 4796 48 lO ) 
INTERPRET 

BEGIN -FIND 

IF STATE :i) < 
IF CFA , 

ELSE CFA EXECUTE 

THEN '^STACK 
ELSE HERE NUMBER DPL ;i) 1 + 

IF LCDMPILEJ DLITERAL 

ELSE DROP C COMPILE J LITERAL 

THEN 7STACK 
THEN 
AGAIN : 



System Requirements: FORTH nucleus based on the fig-FORTH model or 79-STANDARD; a minimum 
of 3K bytes and a recommended 13K bytes of free dictionary space. 

For more information, call Ren Curry 415/322-1463 or Tom Wempe 408/378-2811 

Yes, send me a copy of Forth Programming Aids, including all source code and the 50-page manual. 

□ fig-FORTH model $1 50 Calif, residents add 6.5% tax. 

□ FORTH'79 STANDARD (specify system) $150 Foreign air shipments add $15. 

□ Manual alone (credit toward program purchase) $25 

□ Send more information 



□ Master Charge □ Visa Account Number „_ Exp. Date. 



Name „ . Indicate disk format: 

Comoanv '-' ^' fig-FORTH screens 

^ ^ " — — " □ 8" ss/sd CP/M~ 2.2 file 

Street ^,^_„^_^ ^ ^ d Apple 3.3 

□ PC FORTH 

City/State/Zip „_____^„_„^^__ ^ □ other 



Send to: Curry Associates, P. O. Box 11324, Palo Alto, CA 94306 415/322-1463 or 408/378-2811 
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A Techniques Tutorial 

Parameterized CREATE DOES> 



Henry Laxen 



Last time I talked about names and 
the importance of choosing them care- 
fully. We also looked at an example of 
how the STACK data structure can be 
handy, and that there is no require- 
ment for naming stack operators with 
little arrows attached to them. This 
time we will see another example of 
where stacks are a useful data struc- 
ture and the names we will choose for 
the stack operators again will not have 
little arrows attached to them. Also 
we'll tie in some of the CREATE DOES > 
concepts we learned in the previous 
three articles. If CREATE DOES > is still 
mysterious to you, I strongly suggest 
you reread the three-article series on 
defining words, and get comfortable 
with them. 

Let's review defining words philoso- 
phically. One way of looking at them 
is that they are a mechanism for build- 
ing small custom compilers. By using 
defining words, you can specify both 
the compiJe time and the run time 
behavior of subsequent words. This 
gives you incredible flexibility, but 
occasionally you want even more. 
That is where what I call "parame- 
terized defining words" come in. 
Sometimes you may want to create a 
defining word that has a general struc- 
ture that is always the same, but some 
of the details may change depending 
upon what happens. For example, sup- 
pose you had a defining word that 
defines words that look up something 
in a file, and do one of three things 
depending upon whether the data ele- 
ment was missing in the file, uniquely 
present in the file, or had multiple 
occurrences in the file. The basic 
structure of the defining word can take 
the data element, look it up by say, 
sequentially searching the file, and 
then do something depending on the 
data element and the result of the 
lookup. Conventional defining words 



fail for this kind of task, since the 
action to be taken must be specified in 
the DOES> portion of the defining 
word, and cannot really be dependent 
upon the actual data element that was 
searched for. 

One way to solve this problem is to 
allow for some kind of parameters 
other than those passed on the stack, 
inside of defining words. That way a 
defining word becomes a template 
whose actions can be customized later 
depending upon your desires and re- 
quirements. The idea then is to leave 
room for some number of parameters 
in the defining word and then recall 
and execute them at runtime. In Fig. 
1 you will see a screen of FORTH code 
that accomplishes this task. Let's ex- 
amine it carefully. 

The first word, called PARAMETERS 
allocates space in the parameter field 
portion of the word being defined, and 
leaves a pointer to the beginning of the 
parameter field on the stack. The next 
word, C: patches the parameter field 
that was left on the stack with the 
parameter field of a colon definition, 
and starts compiling. The [ ' : CFA @ ] 
LITERAL code lays down the code field 
address of colon. The HERE OVER ! 
phrase patches the parameter field that 
was left on the stack, and finally the 2 + 
increments the parameter field to the 
next one to patch. One note of caution 
here, the FORTH that I am using is 
Starting FORTH compatible, and EX- 
ECUTE operates on parameter fields. 



not code fields. If you have a FIG or 
FORTH-79 system you should move 
the HERE word to the very beginning of 
the definition, before the [. You will 
then be patching in code fields rather 
than parameter fields. It's a little detail 
that will cause your system to crash if 
you leave it out, otherwise there are no 
serious consequences. Next C; ter- 
minates a code segment begun with C: 
and resumes interpretation. 

The next three words are actually 
used inside the DOES> part of the 
CREATE DOES> word to set things up 
and perform them, INSTALL should be 
used right after the DOES> word to 
push the parameter field of the defini- 
tion onto the STACK. REMOVE is used to 
pop the STACK, and should be included 
everywhere in the DOES> part where 
we exit from the definition. Finally P 
is used to execute a particular para- 
meter from the currently installed 
parameterized CREATE DOES> word. 
Why, you may ask, did I go through the 
trouble of implementing a stack to per- 
form these operations. The answer is 
that I wanted to be able to nest these 
structures, and simply using a variable 
instead of a stack would have caused 
instant death. By using a stack, words 
defined by parameterized defining 
words can call other words defined by 
parameterized defining words. The 
only rule that must be obeyed is that 
whatever is INSTALLed must be RE- 
MOVEd before exiting the DOES> por- 
tion of a word. 



o 


\ 


Parameterized CREATE DOES> Structures 


1 




PARAMETERS <S n — addr ) 


2 
3 
4 




HERE SWAP 2* ALLOT ; /t c 

' : CFA 9 3 LITERAL , JhEREI OVER ! 2+ ] ; 


5 




C;" <S — ) 


6 




COMPILE EXIT rC0MPILE3 E ; IMMEDIATE 


7 


CREATE STACK HERE , 10 ALLOT 


8 




INSTALL <S n — ) < Push onto the STACK ) 


9 




STACK 2 OVER +'. 3 ! ; 


10 


: 


REMOVE <S — > 


11 




-2 STACK +! ; 


12 




P (S n — ) 


13 




2« STACK a a +3 EXECUTE ; 


14 






15 







Figure 1 
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\ Example of ustt for paraowterized CREATE DOES> 

1 : CASES ( A generalized CASE statement ) 

2 CREATE (S n — ) PARAf^ERS 

3 DOES> (S n — > INSTALL P REMOVE ; 

4 lO CASES ROMAN ( O ) Cs TT?" C; 

5 ( 1 ) Cs I- C; < 2 ) Cs II" C; < 3 > C: . " 1 1 1 " C; 

6 ( 4 ) Cs IV- C;. (- 5 ) Cs V C; ( 6 ) Cs - '* VI ■* C; 

7 ( 7 > Ct VII- C? f 9 ) Cs -* VIII" C; ( 9 ) Cs - " IX" C; 

8 DROP 
9 

lO 
11 
12 
13 
14 
15 



Figure 2 






\ Example o-f use -for paramet 


erized CREATE DOES> 






1 


: INFORM ( A little more substantial example ) 






2 


CREATE <S n — ) PARAMETERS 






3 


DOES> (S n — ) INSTALL 








4 


CR . '• The number is " 


DUP 


. . " in Arabic, and ' 






5 


P ( number ) , * in " 


O P 


( type ) REMOVE ; 








10 INFORM ROMAN ( O ) 


Cs 


Roman numerals" C; 






7 


( 1 > Cs . " I" C; ( 2 ) 


Cs 


^" II" C; ( 3 ) C; 


Ill' 


C; 


8 


( 4 ) Cs IV- C; ( 5 ) 


Cs 


. " V" C; ( 6 ) C: 




C; 


9 


( 7 ) Cs VII" C; ( 8 ) 


C: 


." VIII" C; ( 9 ) C: 


. " IX" 


C; 


10 


DROP 










1 1 


10 INFORM ENGLISH ( 0) Cs 




English text" C; 






12 


< 1> C: . " One" C; < 2) C: 




Two" C; ( 3) C; 


Three" 


C; 


13 


( 4) C: ." Four" C; ( 5) C: 




Five" C; ( 6) C: . " 


Six" C; 




14 


( 7) C: . " Seven" C; ( 8) C: 




Eight" C; ( 9) C; . " 


Nine" C 


? 


15 


DROP 











Figure 3 



Now let's take a look at Fig. 2 for an 
example of how to use the beasts we 
have just constructed. We define a 
simple yet flexible case statement that 
allows us to use code fragments rather 
than just single words for the different 
cases. The compile time part of the 
definition simply allocates some space 
in the parameter field of the word 
being defined, and leaves the address 
of the beginning of the parameter field 
on the stack. Notice that it reads very 
nicely. If you knew how many para- 
meters you wanted (some constant 
number) in the CREATE part of a defin- 
ing word, you could take care of them 
by simply saying CREATE 5 PARAME- 
TERS ... for 5. In the case of CASES, 
we will specify the number of parame- 
ters by placing a number on the stack 
before invoking CASES. The runtime 
part simply INSTALLS the pfa of the 
word defined onto the STACK we 
created, executes the phrase corre- 
sponding to the number on the stack 
with P, and REMOVEs the pfa from the 
STACK. The code in lines 4 thru 8 illus- 
trate a word which prints out the first 
nine Roman numerals based upon 
what is on the stack. Notice that we did 
not have to create a name for each of 
the 10 cases, we simply compiled the 
code for each case with a C: and C; pair, 
which patched their runtime address 
into the appropriate slot in the para- 
meter field of ROMAN. The DROP on line 
8 is needed to remove the incremented 
parameter field of ROMAN which is still 
on the stack at this point. We could 
have given it the more impressive 
name of something like END-CASE by 
defining : END-CASE DROP ; . 

Now let's take a look at a slightly 
more non-trivial example in Fig. 3. 
Here we define a word called INFORM 
which prints a message about a num- 
ber both in Arabic notation and in 
some other notation which we will 
specify later. In fact parameter of the 
definition is in charge of printing out 
the name of the format in which the 
number is being displayed. Parameter 
is executed by the little code frag- 
ment P on line 5. Thus if we were to 
execute the line 8 ENGLISH we would 
get: 

The number is 8 in Arabic, and 
Eight in English text 



Notice how the defining word INFORM 
mixes both constant functions, such as 
printing out the carriage return, the 
message about Arabic, and the actual 
Arabic number, with the variable data 
of the number in some other format, 
and the name of the format. This con- 
cept of parameterizing your defining 
words can lead to substantial code sav- 
ings, and considerable simplifications 
in many cases where you want to do 
almost the same thing many times, but 
a few of the little details are different. 
I find that the most common use for 
this concept is in error handling, since 
what is being manipulated by the de- 
fining word is always the same, but 
you often want to do something special 
and data dependent if an error occurs. 
You can use parameterized defining 
words to help you out in those situ- 
ations. 



Next time we'll explore the how and 
why of compiling words, and look at 
some non-obvious examples of how to 
use them. We can use compiling words 
to change the syntax of FORTH, and 
create special compiling structures in 
ways totally different from defining 
words. Until then good luck, and may 
the FORTH be with you. 



Henry Laxen in an independent 
FORTH consultant. This is the first 
anniversary of his Techniques 
Tutorial column, and we personally 
think it is an excellent series. Thank 
you, Henry, for your continuing con- 
tributions. —Editor n 
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IBM®PC SOFTWARE 



FORTH-32™ allows access to all of the PC 

memory using intermixed 16/32 bit addressing. 
Screen editor, assembler, decompiler, debug, graphics, 
CASE, and DOS interface. Package Builder Utility 
produces compact marketable software. $150. 
Floating Point Library (Software or 8087]. $50. 

QUESTalk^'^ Asynchronous 

Communications connects your PC 

to other computers. Menu driven with help feature, 
terminal or local mode, UPLOAD/DOWNLOAD file 
transfers. Multiple BAUD rates. $45. 

PrlntPak™ allows customized printouts via 

menu driven selection of page headers, line numbers, 
character type, time, date and more. $45. 

DiskPak™ recovers erased files, prints, 
views and modifies sectors and more. $35. 

Ediin Recovery Utility reclaims 

the file you thought you lost when the disk was full. $35. 

IBM IS A REGISTERED TRADEMARK DF IBM CORPORATION 
FORTH-32, QUESTalk, PnntPak, DiskPak ARE TRADEMARKS OF QHI. 



TM 



QUEST RESEARCH, INC. 

H P.O. Box 2553 ■ Huntsville, AL 35804 ■ 205-533-9405 S 

Toll Free 800-558-8088 
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FORTH Standards Corner 



Summary of Changes 
in Proposed FORTH-SS 



Robert L. Smith 



The FORTH Standards Team met in Carmel Valley on 
October 3-5, 1982. A number of changes were made to 
Draft A (the working draft of the proposed FORTH-83 Stan- 
dard. The team has instructed me to publish a brief descrip- 
tion of the technical proposals passed at the meeting. This 
summary is given below. Due to lack of time and space, 
I will defer more extensive comments for later issues of 
FORTH Dimensions. Team sponsors have received most 
of the proposals listed below, along with others for which 
no action was taken, or which were rejected by the team. 
The following proposals were accepted by the team: 



Prop.# Author 

39 Tenney 



204 Referees 



205 Referees 



207 Referees 



208 Referees 



209 Berkey, 
et al 

210 Smith 
213 Tenney 



219 Shaw 



222 Shaw 



Description 

Modify definition of BUFFER, and 
move to the Controlled Reference 
Word Set. 

The serial number of a glossary 
definition will indicate the year in 
which a substantive change was 
made. 

Expand definition of DOES> so that 
the creation of a new word may use 
CREATE or any user-defined word 
which executes CREATE. 
Append an M to glossary definitions 
to indicate those words which may 
have multi-programming implica- 
tions. Referee clarification. 
SAVE-BUFFERS to Required Word 
Set. FLUSH executes SAVE- 
BUFFERS then unassigns the 
buffers. 

EMPTY-BUFFERS is moved to Con- 
trolled Reference Word Set. 
The true value returned by Standard 
words has all bits set to 1. 

Add the Immediate attribute to 
LEAVE. 

KEY does not display the character, 

but EXPECT does. Clarification of 

Standard action of EMIT. 

PAD holds at least 84 bytes. Other 

clarifications. 

Clarification of error conditions for 
D.R. and U.R. Referees to consider. 



223 Thomas Define concept of a FORTH word. 

Referee clarificaiton. 

224 Thomas Clarify definition of Compilation 

Address. Referees to consider. 

225 Thomas Clarify definition of "compilation." 

Referees to consider. 

226 Thomas Clarify definition of ''glossary." 

Referees to consider. 

227 Thomas Clarify definition of "interpreter." 

Referees to consider. 

228 Thomas Additional definitions for clarity. 

Referee clarification. 
249 Schleisiek Use based arguments for PICK and 
ROLL. 

256 Wasson Move QUERY to the Controlled 
Reference Word Set. 

265 Oakley Clarifications for # LOAD CON- 
VERT EXECUTE and BLK, For 
referee consideration. 

283 Sanderson Add a new word LEAVES to the 

Controlled Reference Word Set. 

284 Rarthe & Add SPAN to Required Word Set. 
Sanderson Span returns the address of a word 

holding the number of characters 
actually received by EXPECT. 
292 Tenney Change meaning of NOT to yield the 
one's complement of the input 
argument. 

296 Perry & Move LIST and SCR to the Con- 
Shaw trolled Reference Word Set. 

297 Perry & Delete ? from the Required Word 
Shaw Set. 

299 Ragsdale Move CURRENT and CONTEXT to 
the System Word Set. Modify text of 
VOCABULARY, and FORGET. 

301 MOD The integer quotient returned from 
Subteam signed division functions is the floor 
of the real number quotient. The 
MOD value has the sign of the 
denominator. 

304 MOD Name changes: U* to UM* and 
Subteam U/MOD to UM/MOD, 

306 Schleisiek In EXPECT, one or two nulls might 
be stored at the end of the text. 

308 Forsley Add the word RECURSE to the Con- 
trolled Reference Word Set. 
309A James FIND, and ['] return the compila- 
tion address. EXECUTE takes a com- 
pilation address. 

Continued 
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CHANGES (continued] 



309B James The word BODY converts a compila- 
tion address to a parameter field 
address. 

310 Patten & FIND takes a string address and 
James returns a compilation address and a 

flag indicating whether the word was 
found, and if so, whether the word is 
immediate, 

311 Harris A Programmer's Bill of Rights, 

313 Tenney Labelling requirement for En- 

vironmental Dependencies, 

314 Tenney New wording for KEY and EMIT to 

allow environmental dependencies. 
Referees may clarify. 

315 Currie Clarification of DO-loop nesting 

levels. 

317 McNeil Return Stack Restrictions, 

String Maximum string lengths are 255 for 

Subteam .", and ABORT*'. 

Delete last phrase in the definition of 

COMPILE, 
String Clarification of WORD, 

Subteam 

Referees to define limitations of PAD 

use. 

Referees to clarify USER variables. 

Referees to resolve discrepancies of : 

and ; . 



Referees to correct wording of 

CONVERT. 

Referees given discretion of place- 
ment of words in layers. 

Referees to give text on warning on 

the use of TIB. 

The team has requested Bill Ragsdale to resubmit pro- 
posals 274 and 275 in proper form to be accepted as 
Experimental Proposals. Proposal 274 suggests that 
vocabularies be non-immediate. Proposal 275 deals with 
the "ONLY" concept for search orders. Proposal 216 was 
tabled, awaiting action by the Subteam on Strings, headed 
by Don Colburn. This proposal deals with in-line argu- 
ments. 

The following proposals were considered, but failed to 
pass by the required 2/3 of the voting members present; 
213A. 213D, 215, 255, 274, 279, 283-1. 289, 290, 295, 297, 
298, 303. Two unnumbered proposals also failed to pass. 
One suggested that PAD be moved to the Reference Word 
Set, and the other would have changed UM/MOD to divide 
a 31 bit number by a 15 bit number. 

I will have more information next time. 



Robert Smith is the current Secretary of the FORTH 
Standards Team and was a member of the original 
FORTH ImpleiuentQtion Team for FIG. He is employed 
by ESL Inc. in Sunnyvaie, CQlifovnia, c 



JOIN THE APPLICATION 
MIGRATION! 



PRODUCE MACHINE TRANSPORTABLE CODE. 

GENERATE ROMABLE/HEADERLESS CODE. 

FORWARD REFERENCING ALLOWED. 

PUT FORTH ON OTHER COMPUTERS. 

PRODUCE EXECUTABLE IMAGE IN RAM OR ON DISK. 

PRODUCE ADDRESS MAP OF APPLICATION. 

NO LICENSE FEE OR ROYALTIES ON APPLICATIONS. 



fig FORTH CROSS-COMPILERS by NAUTILUS SYSTEMS 

Apple, Atari, TRS-80 Model I, Zenith, and Northstar 
fig-FORTH CROSS-COMPILER by LABORATORY MICROSYSTEMS 
CP/M-80, CP/M-86, IBM P.C., and 68000 (requires LAB FORTH at additional cost) 

79-Standard Systems by MOUNTAIN VIEW PRESS 

CP/M-80 

$300.00 + tax and $5.00 shipping and handling 

Apple is a trademark of Apple Computer. Inc. Atari is a trademark of Atari Computer. TRS-80 is a trademark ot 
Tandy, Corp Zentth is a trademark of Zenith Radio Corporation. Northstar is a trademark of Worthstar Computers. 
IBM IS a trademark of International Business Machines, Inc. 




Nautilus Systems 

P.O. Box 1098 SANTA CRUZ, CA 9506] 



: High-performance M68000 

HighResGraphicspolyFORTH/3S + + ; 

That's right. The power of polyFORTH/32 has been com- 
bined with the Omnibyte BSOOO based systenn and high 
resolution graphics from Ikier Technology. You get big sys- 
tem performance at micro prices. 

The standard system includes a 1 0-Mhz Motorola 68000 
with the FORTH operating system. The base system also 
has 1 28K bytes of RAM expandable to 1 6M bytes. With a 
single interface board you can connect to disks, a 
Centronics printer, a realtime clock, and 48 lines of parallel 
I/O. Need file storage? The standard Omnibyte system 
has a 1 M byte floppy, and a 20M byte hard disk. You have 
this and more. 

High resolution graphics makes the picture complete. The 
Ikier HRG Display Controller gives you hardware vectors, 
arcs, pan. scroll, and zoom. There are two megapixels of 
display memory on a single board with a built in DMA 
function for image transfer For color, multiple Ikier boards 
can be configured to give up to 256 colors from a palette 
of 224 y^jth two overlay planes. Graphics goes FORTH. 

It's the realtime thing. polyFORTH/32. At your disposal 
yqu have a full 32 bit system with multitasking, an un- 
limited number of partions, 32 bit wide stacks, and real- 
time functions. Data base support includes direct, ran- 
dom, sequential, and indexed files. For graphics, there are 
easy to use graphic commands, and you can software 
define the CRT you are using. 

The best news about our system is the price. To find out 
more and get a quotation call Randy Cochran. Omnibyte 
marketing manager, at 31 2-231 -6880. Or if your inter- 
est is just graphics, call Larre Nelson, Ikier Technology 
marketing manager, at 61 7-275-4330. 
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NEW PRODUCT ANNOUNCEMENTS 

FORTH ON SANYO 

The Software Works announces the release of Software Works FORTH, Level I™ for the MBC-1000, 2000, and 3000 computers of 
Sanyo Business Systems Corporation. Software Works FORTH is a fully documented, well supported, enhanced, 79 Standard version 
of the FORTH programming language. Level I, a basic system that resembles fig-FORTH, retails for $95.00. 

Software Works FORTH uses CP/M for file handling and disk input/output for sharing data files and disk storage with other languages 
and application programs. 

Features include; a fig-style line editor; a full block editor; a versatiJe, modular assembler; a generalized interface for character I/O 
devices; a stack practice aid; and a collection of utilities for copying and deleting FORTH screens; terminal independent input and 
output; simultaneous output to several devices; and volume spanning. 

Level II, a more comprehensive version of Software Works FORTH, is also available for $179. 

The Software Works • 1032 Elwell Court, Suite 210 • Palo Alto, CA 94303 • (415) 960-1800 

TRS 80 COLOR-FORTH 

COLOR-FORTH for the TRS-80 Color Computer (6809) is now available from Hoyt Stearns Electronics. Prices are $58.95 for the RAM 
version and $123,00 for the ROM version + the RAM version. Included with the ROM are instructions for installing it in the disk 
controller, or it will work in a ROM cartridge. 

COLOR-FORTH works with both disk and tape. The ROM version will work with 4K of RAM; the RAM based version requires 
16K RAM. 

COLOR-FORTH comes with a powerful Semigraphic-8 editor and a set of utilities. It has a unique trace feature, and handles inter- 
rupts cleanly in high level FORTH. COLOR-FORTH maintains the CPU carry flag, for easy implementation of extended math, and 
has words for bit manipulation, graphics, sound, task multiplexing, fast math, auto-repeat keys, control keys, disk and tape control, 
and linkage to Basic routines. 

COLOR-FORTH was written largely in assembly language, specifically for the Color Computer. It takes advantage of the unique 
features of the Color Computer, and is very fast. COLOR-FORTH does not affect normal operation of the Color Computer. 
Hoyt Stearns Electronics • 4131 E. Cannon Drive • Phoenix, AZ 85028 • (602) 996-1717 

6502 FORTH ON CODOS 

fig-FORTH upgraded to FORTH-79 with Double-Number Standard Extensions, for any 6502 based Microcomputer running Micro 
Technology Unlimited's CODOS Disk Operating System. Changes within the nucleus give a 20-30% increase in execution speed over 
original fig-FORTH 6502. 

The system interfaces to floppy disk via CODOS SVCs, and allows for up to eight simultaneously active files, as well as more than 
800 screens per disk {when using double sided disks), and direct to disk data transfer capability. fig-FORTH 79 comes complete with 
an advanced Editor, a 6502 Assembler, many useful utility screens and a comprehensive User Manual. It is supplied on an 8 inch 
single sided double density disk or on a cassette at a price of $145.00 for orders from inside the USA, and without the disk interface 
to MTU's CODOS, for any 6502 based Microcomputer that can read either KIM or MOS Technology Standard recording formats, 
at a price of $38.00. For those who don't mind the typing, the listing for the complete system is available at a price of $34.00. 

Mark I. Manning • 7611 Autumnai Lane • Ljverpooi, NY 13088 

FORTH-32 

Quest Research has released FORTH-32, a complete software development system for the IBM PC. 

FORTH-32 is a language system which allows the programmer to easily utilize all of the IBM PC one megabyte memory domain. 
It does this by allowing a 32-bit addressing mode {as the FORTH-32 name implies) as well as a 16-bit addressing mode. In effect, FORTH-32 
makes the segment structure of the memory management transparent to the user; thus, the programmer has direct access to all of 
the available memory without the need of specifying a segment address. 

Addresses in the first 64K bytes relative to the load address can be specified with a single word {16 bits). Only when a program 
spans more than 64K bytes is 32-bit addressing needed. A MODE SENSING switch determines whether 16 bits are sufficient to specify 
an address, or if 32-bits are necessary. At run time, the interpreter properly unravels which mode was compiled into the dictionary 
and handles the addresses appropriately. In addition to this intermixed 16/32 bit addressing, most dictionary entries in the FORTH-32 
model have two verbs tied to them. The first verb is a 32-bit version and resembles the standard fig-FORTH verb. The second verb, 
if present, is a 16-bit version. For example, there is a 32-bit and a 16-bit DO-LOOP present in the FORTH-32 model. 

The FORTH-32 language is verb compatible with the fig-FORTH model. FORTH-32 is by nature a 32-bit language which can per- 
form 16, 32, and 64 bit mathematical operations allowing extended precision arithmetic. 

A utility allows one to transform a user-developed program into a marketable software package without requiring a licensing agree- 
ment with Quest Research, Inc. (as long as the entire FORTH-32 language is not included with the user software package). This is 
accomplished by building on disk a condensed executable file consisting of only those FORTH words needed for the software package. 

The FORTH-32 Development System priced at $100 includes: Package Builder Utility, Assembler, Decompiler, Full Screen Editor, 
Debug {an extended FORTH debug with high level trace capability and full stack display), DOS interface (allows direct control of the 
disk sectors full file capability), Graphics (dot, line, circle, paint and color capability). Case Statement and User Manual, A Floating 
Point Package is also available for $50. 

Quest Research Inc. • P.O. Box 2553 • Huntsville, AL 35804 • (800) 558-8088 • (205) 533-9405 

FORTH/370 FOR LARGE IBM COMPUTERS 

FORTH/370 is a fig-FORTH adaptation for IBM 370, 43X1, 303X, 308X, and equivalent computers. It runs under VM/CMS or MVS/TSO 
to give an office mainframe the power and flexibility of FORTH with program compatibility to micro fig-FORTH systems. 

FORTH/370 is complete w^ith a Reference Manual, Editor, Assembler, and a Library of Utilities. FORTH/370 disk files are compati- 
ble u^ith and can be accessed by the host operating system. For example, in the CMS version either the CMS editor or the FORTH 
editor can be called from FORTH/370 to edit screens. Single and double numbers are 32 and 64 bits respectively. 

FORTH/370 is available on 1600 or 6250 BPI tape for the introductory price of $1,350.00, Specify CMS or TSO. Maryland firms 
add 5% sales tax. 

Ward Systems Groups • 8013 Meadowview Drive • Frederick, MD 21701 
CURRY ASSOCIATES ANNOUNCES SOURCE INDEX 

SOURCE INDEX is a software routine to aid in the development of large FORTH programs. Written in high level FORTH, it interprets 
the source code and collects the names of new^ly defined FORTH words. The program output consists of an alphabetical list of word 
names, the defining word {e.g., : VARIABLE), the word's location in the source code {screen and line number), and a count of defined 
words. An unusual feature of this routine is the ability to detect a new defining word (e.g., ARRAY) and the objects of this defining 
word (e.g., ARRl ARR2]. 

Source Index includes aJJ source code, manual, and program disk postpaid for $50. Specify fig-FORTH or FORTH-79 in one of the 
following disk formats: Q" CP/M, 5" PC-DOS, 5" Apple 3.3, 

Ren Curry • Curry Associates • P.O. Box 11324 • Palo Alto, CA 94306 • (415) 322-1463 
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SSI*FORTH for the IBM Personal Computer is fig-FORTH and much 
more Our FORTH system is designed for the serious PC programmer and 
offers powerful editing and debugging capabilities and a complete interface 
to BIOS and DOS for the keyboard, screen, disks, communication ports, etc. 
In addition. SSI*FORTH can accept text from other text editors (like our text 
editor P-Edit). and perform screen to text converions. All screens used are 
DOS format compatible. 

Editor 

" Full Screen FORTH Editor with Search 
Machine Speed Search Over Multiple Screens 




Additions to FIG FORTH 

• Complete Interface to BIOS and DOS for Keyboard, Screen, Disks. 
Communication Ports, etc. 

^ The words PEEK. POKE, PEEKW, POKEW for easy transfer of functions 
defined in the BASIC language. 

' Ability to use the speaker and timer to produce tones. 

Debugging Capabilities 

Debugging Aid 
- HEX Dump 
' Decompiler 



Text Conversion 



Screen to Text Document Conversion 
^ Load from Text Format 

Requirements 

^ IBM Personal Computer 
^ PC/DOS 




BATet-UITe SOFTWARE IMTIERMATIOMAL 
S8S WEST CISNTER OPEM. UTAH BaOBT 



{B013 ssa-si^sa (sooi 3an-aso6 telex as3-i ea 
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4th FORML CONFERENCE 
FORTH Modification Laboratory 
October 6-7, 1982 
Asilomar, California 




Conference attendees (left to right) Michael Perry, Charles H. Moore, 
Glen B, Haydon and Michael Stolowitz break FORTH into laughter 
during a special Asilomar Session devoted exclusively to sillinoss. 





Klaus Schleisiek delivers his 
presentation on "WORD Without 
a Reserved Character." 



William Ragsdale explains his proposed vocabulary managment 
scheme [called ONLY) to Michael Stolowitz. The poster sessions 
provide an opportunity for one-on-one discussions of topics 
presented in the oral presentations. 




Jill and Dick Miller present a poster session on turtle graphics. 




Ed Rotberg plays his rendition of Ravel's "Bolero," which he programmed 
in FORTH on his Atari 800, for an appreciative Klaxon Suralis. 
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THE 4th ANNUAL FORTH NATIONAL CONVENTION 

October 9, 1982 
The Red Lion • San Jose, California 




explains how he implemented that computer conferencing Don Colbum (right) of Creative Solutions, Inc. proudly shows off 

program in the "Communications" panel discussion. his multi- tasking FORTH for the Hewlett Packard 9826. 




Kim Harris (left) and Henry Laxen relax 
during a break between presentations. 
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-=-=-=- 8080/Z80 FIG-FORTH for CP/M & CDOS systems -=-=-=- 

$50 saves you keying the FIG FORTH model and many published FIG FORTH screens onto diskette and 
debugging them. You receive TWO 8 inch diskettes (single sided, single density, soft sectored 
only) . The first disk is readable by Digital Research CP/M or Cromemco CDOS and contains 8080 
source I keyed from the published listings of the FORTH INTEREST GROUP (FIG) plus a translated, 
enhanced version in ZILOG Z80 mnemonics. This disk also contains executable FORTH, COM files for Z80 
& 8080 processors. 

The 2nd disk contains FORTH readable screens including a extensive FULL-SCREEN EDITOR plus many 
items published in FORTH DIMENSIONS, including a FORTH TRACE utility, a model data base handler, an 
8080 ASSEMBLER and formatted memory dump and I/O port dump words. The disks are packaged in a ring 
binder along with a complete listing of the FULL-SCREEN EDITOR and the FIG-FORTH INSTALLATION MANUAL 
(the language model of FIG-FORTH, a complete glossary, memory map, installation instructions and the 
FIG line editor listing and instructions) . 

This entire work is placed in the public domain in the manner and spirit of the work upon which 
it is based. Copies may be distributed when proper notices are included. 

USA Foreign 
AIR 

+- + 

I I Above described package $50 $60 

+-+ 
+-+ 

I 1 Printed Z80 Assembly listing w/ xref $15 $18 

+-+ (Zilog mnemonics) 

+-+ 

I I Printed 8080 Assembly listing $15 $18 



+-+ 



TOTAL ?_ 



Price includes postage. No purchase orders without check. Arizona residents add sales tax. 
Make check or money order in US Funds on US bank, payable to; 

Dennis Wilson c/o 
Aristotelian Logicians 
2631 East Pinchot Avenue 
Phoenix, AZ 85016 
(602) 956-7678 



THE FORTH SPECIALISTS 
COLORFORTH AND PCFORTH 

Quality figFORTH compilers need not be expensive. 

COLORFORTH is a version of figFORTH for the TRS-80 Color Computer. It requires a minimum of 16K, but does 
not require Extended Basic. COLORFORTH has been customized for the Color Computer with special DUMP 
and PRINTER functions and a CSAVEM command for those owners without Extended Basic. When you 
purchase COLORFORTH. you receive both cassette and RS/disk versions, and the figEDITOR. This means no 
added expense when you upgrade your system. Complete: Both cassette and RS/disk versions with 
extensive manual. JUST...S49.95. 



PCFORTH is FORTH tailored for the IBM Personal Computer. You receive all the outstanding qualities of 
standard figFORTH compiler and editor, plus several additional words to customize it for the Personal 
Computer. PCFORTH requires a minimum of 32K and 1 disk drive (DOS). Complete with diskette and manual. 
Only...$59.95 

DEALER & AUTHOR INQUIRIES INVITED 



Add $2.00 shipping 



Texas residents add 5 percent 



Armadillo Int'l Software 

P.O BOX 7661 
AUSTIN, TEXAS 78712 






PHONE (512) 459-7325 
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FIG Chapter News 



Potomoc Chapter 

At the October 5th meeting, Dennis 
Evans discussed "FORTH Applica- 
tions in Optics." He described and 
demonstrated optic system design pro- 
grams used at Goddard Space Flight 
Center. Dennis uses Microspeed, a 
FORTH system which includes a hard- 
ware floating point board, on an Apple 
computer. 

At the November 2nd meeting the 
subject was "Commercial Program- 
ming with FORTH." Tom Arnall 
described his experience using 
FORTH to develop commercial soft- 
ware. He compared FORTH with 
other business software development 
languages. Tom recently completed an 
inventory system written in FORTH 
on a PDP-11, 

Southern Ontario Chapter 

At the December 4th meeting Dr. 
Charles E. Eaker discussed "Varieties 
of FORTH." Dr. Eaker is well known 
in the FORTH community for his ver- 
sion of the CASE statement, as well as 
for his implementation of CCForth on 




the TKS« 
Eaker < 

impletnentiiig a i 
for 6809 sis Ufm s 
Flex operating ! 
to be of interest to bodi 1 
experts alike, as it gave m aa 
tunity to meet with someone who hflB 
been involved with FORTH for a gob- 
siderable time. 

Anyone wishing to talk at future 
meetings please contact Dr. Solntseff 
in Hamilton, Ontario Canada at (416) 
525^9140, ext. 2065, 

FORTH Interest Group 

At the October 28th meeting of the 
FORTH Interest Group in Phoenix, 
Arizona, Dennis Wilson, president of 
Aristotelian Logicians demonstrated 
his "Full Screen Editor for Disk and 
Memory.*' The Editor is written com- 
pletely in fig-FORTH and was running 
on a Cromemco 3102 terminal. The 
Editor combines the ability to view 
and update memory instead of resor- 
ting to dumps, peeks and pokes, with 
full screen editing. 



Vol. V. Ho. 3 
Guest Regionai 



Vol. V. No. 4 

FORTH Environment/Toois &l«3 

Vol. V, No. 5 

FORTH in the Laboratory 1 a 1/83 



Vol. V, No. 6 
Looking Back (History) 



12/1/83 



1 



2 



proFORTH COMPILER 

8080/8085, Z80 VERSIONS 

• SUPPORTS DEVELOPMENT FOR DEDICATED APPLICATIONS 

• INTERACTIVELY TEST HEADERLESS CODE 

• IN-PLACE COMPILATION OF ROMABLE TARGET CODE 

• MULTIPLE, PURGABLE DICTIONARIES 

• FORTH-79 SUPERSET 

• AVAILABLE NOW FOR TEKTRONIX DEVELOPMENT SYSTEMS - $2250 

MICROPROCESSOR-BASED PRODUCT DESIGN 

• SOFTWARE ENGINEERING 

• DESIGN STUDIES — COST ANALYSIS 

• ELECTRONICS AND PRINTED CIRCUIT DESIGN 

• PROTOTYPE FABRICATION AND TEST 

• REAL-TIME ASSEMBLY LANGUAGE/proFORTH 

• MULTITASKING 

• DIVERSIFIED STAFF 



MICROSYSTEMS, INC. 

(213) 577-1471 

2500 E. FOOTHILL BLVD., SUITE 102, PASADENA, CALIFORNIA 91107 
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• The Institute for Applied Forth Research^ Inc. 

• Purpose 

!Jj In the past decade the Forth programming language has emerged as a powerful tool for applying 
O computers. However, we feel a lack of application-oriented information has reduced its general 

acceptance. Recognizing this, we have chartered a not-for-profit corporation to support and promote 

2 Forth and its applications. 

• Programs 

^ The Institute will sponsor Forth-related conferences such as the 1981 and 1982 conferences at the 
< University of Rochester, Other institutions using Forth may consider hosting conferences or seminars with 
^ administrative backing from the Institute. We will address specific topics in Forth through seminars, 
O workshops, and lectures like those held this past May in Rochester. 

^ We are starting a program of summer student fellowships at universities working with Forth, in which the 
projects will be chosen so as to further a student's expertise in Forth, while doing work of interest to the 
host institution and others. Further, in recognition of the fact that many students trained in the sciences 
have not had a chance to apply that science within the constraints of industry, we are arranging summer 
internships within companies applying Forth. Combination academic/industrial internships are also 
possible, and would facilitate the transfer of new techniques between theacademicand industrial sectors. 
We welcome suggestions for this program, as well as inquiries from companies and institutions 
interested in sponsoring students. 

Finally, we are establishing a library or archive of Forth-related materials to serve as a resource for the 
community. 

• Publications 

^ We plan to publish a refereed, professional journal, whose primary subjects will be Forth-based tools and 
Q their applications in industry and research. Referees are being chosen, based on their experience and 
p interest, from universities, research laboratories, and businesses using Forth. We intend to publish papers not 
^ only by professional Forth programmers, but also by people who have used Forth asa tool to facilitate their 

3 own work. The journal will try to represent the growing Forth community, and provide a forum for 
^ original work. 

The journal will appear twice the first year, and quarterly thereafter. The first issue will come out in January 
1983. 

The Institute will also undertake publication of the proceedings of the conferences it sponsors. The 1 982 
Rochester Forth Conference Proceedings should be available in September from Mountain View Press. 

• If you are interested in helping to further the Forth concept through a unique organization, please contact: 

Thea Martin, Executive Director 

1 ne institute tor Appiiea rorin Kesearcn, inc. 

70 Elmwood Avenue 

Rochester, New York 14611 

(716) 235-0168 
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Fig Chapters 

u.s 

• ARIZONA • 



Phoenix Chapter 

Dennis L. Wilson, Samaritan Health 
Services, 2121 E. Magnolia, Phoenix, 
AZ. 602/257-6875 



• CALIFORNIA 

Los Angeles Chapter 

Monthly, 4th Sat., 11 a.m., Allstate 
Savings, 8800 So. Sepulveda Blvd., 
L.A. Philip Wasson 213/649-1428 

Northern California Chapter 

Monthly, 4th Sat., 1 p.m., FORML 
Workshop at 10 a.m. Palo Alto area. 
Contact FIG Hotline 415/962-8653 

Orange County Chapter 

Monthly. 4th Wed,, 12 noon, 
Fullerton Savings, 18020 Brookhurst, 
Fountain Valley. 714/523-4202 

San Diego Chapter 

Weekly. Thurs.. 12 noon. Call Guy 
Kelly, 714 268-3100 x4784 

• MASSACHUSETTS 
Boston Chapter 

Monthly. 1st Wed.. 7 p.m. Mitre 
Corp. Cafeteria. Bedford, MA. Bob 
Demrow. 617 688-5661 after 5 p.m. 

• MICHIGAN 

Detroit Chapter 

Call Dean Vieau. 313 493-5105 

• MINNESOTA 

MNFIG Chapter 

Monthly. 1st Nfon. Call Mark Abbot 
(days) 612 854-6776 or Fred Olson, 
6127588-9532. or write to: MNFIG, 
1156 Lincoln Ave., St. Paul. MX 
55105 



• MISSOURI 

St. Louis Chapter 

Cai: Da\id Doudna, 314/867-4482 



• NEVADA 

Las Vegas Chapter 

Suite 900. 101 Convention Center Dr. 
Las Vegas. W 89109, 702/737-5670 

• NEW JERSEY 

Vcv )cney Chapter 

CaD Gccr?e l>C"s. 201 451-2905 eves. 

• NEW YORK 

New YoArfcaptii 

Call Tom fmag. 211 "4^-^2 



OKLAHOMA 

Tulsa Chapter 

Monthly, 3rd Tues., 7:30 p.m., The 
Computer Store, 4343 So. Peoria, 
Tulsa, OK. Call Bob Giles, 
918/599-9304 or Art Gorski, 
918/743-0113 

• OHIO 

Dayton Chapter 

Monthly, 2nd Tues., Datalink 
Computer Center, 4920 Airv^^ay Road, 
Dayton, OH 45431. Call Gary Ganger, 
(513) 849-1483. 

• OREGON 

Portland Chapter 

Call Timothy Huang, 9529 Northeast 
Gertz Circle, Portland, OR 97211, 
503/289-9135 

• PENNSYLVANIA 

Philadelphia Chapter 

Call Barry Greebel, Continental Data 
Systems, 1 Bala Plaza, Suite 212, Bala 
Cynvi^id, PA 19004 

• TEXAS 

Austin Chapter 

Call John Hastings, 512/327-5864 

Dallas/Ft. Worth Chapter 

Monthly, 4th Thurs. 7 p.m., Softv^^are 
Automation, 1005 Business Parkv^^ay, 
Richardson, TX. Call Marvin Elder, 
214/231-9142 or Bill Drissel, 
214/264-9680 

• UTAH 

Salt Lake City Chapter 

Call Bill Haygood, 801/942-8000 

• VERMONT 

ACE Fig Chapter 

Monthly, 4th Thur., 7:30 p.m., The 
Isley Library, 3rd Floor Meeting Rm., 
Main St, Middlebury, VT 05753. 
Contact Hal Clark, RD #1 Box 810, 
Starksboro, VT 05487, 802/877-2911 
days; 802/453-4442 eves. 

• VIRGINIA 

Potomac Chapter 

Monthly. 1st Tues. 7p.m., Lee Center, 
Lee Highvi^ay at Lexington Street, 
Arlington, Virginia. Call Joel 
Shprentz, 703/437-9218 eves. 

• WASHINGTON 

Seattle Chapter 

Call Chuck Pliske or Dv^^ight 
Vandenburg, 206/542-7611 



FOREIGN 

• AUSTRALIA 

Australia Chapter 

Contact Lance Collins, 65 Martin Rd., 
Glen Iris, Victoria 3146, or phone 
(03] 292600 

• CANADA 

Southern Ontario Chapter 

Contact Dr. N. Solntseff, Unit for 
Computer Science, McMaster 
University, Hamilton, Ontario L8S 
4K1, 416/525-9140 x2065 

Quebec Chapter 

Call Gilles Paillard, 418/871-1960 or 
643-2561 

• ENGLAND 

English Chapter 

Write to FORTH Interest Group, 38 
Worsley Rd., Frimley, Camberley, 
Surrey, GU16 5AU, England 

• JAPAN 

Japanese Chapter 

Contact Masa Tasaki, Baba-Bldg. 8F, 
3-23-8 Nishi-Shimbashi, Minato-ku, 
Tokyo, 105 Japan 

• NETHERLANDS 

HCC-FORTH Interest 
Group Chapter 

Contact F.J. Meijer, Digicos, Aart 
V.D. Neervi^eg 31, Ouderkerk A.D. 
Amstel, The Netherlands 

• WEST GERMANY 

West German Chapter 

Contact Wolf Gervert, Roter Hahn 29, 
D-2 Hamburg 72, West Germany, 
(040) 644-3985 

SPECIAL GROUPS 

Apple Corps FORTH 
Users Chapter 

Twice monthly, 1st & 3rd Tues., 7:30 
p.m., 1515 Sloat Blvd., #2, San 
Francisco, CA. Call Robert Dudley 
Ackerman, 415/626-6295 

Detroit Atari FORTH 

Monthly, 1st Wed. 
Call Tom Chrapkiev^^icz 
313/524-2100 or 313/772-8291 

\ova Group Chapter 

Contact Mr. Francis Saint, 2218 Lulu, 
Witchita, KS 67211, 316/261-6280 
(days) 

MMSFORTH Users Chapter 

Monthly, 3rd Wed., 7 p.m., 
Cochituate, MA. Dick Miller, 
617/653-6136 
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FORTH INTEREST GROUP 
MAIL ORDER 



USA 

Q Membership in FORTH Interest Group and $15 
Volume V of FORTH DIMENSIONS 

□ Back Volumes of FORTH DIMENSIONS. Price per each. $15 

□I Dii Dm Qiv 

Qfig-FORTH Installation Manual, containing the language model $15 
of fi§-FORTH, a complete glossary, memory map and installation instructions 

[^Assembly Language Source Listings of fig-FORTH for specific CPU's 
and machines. The above manual is required for installation. 

Check appropriate box(es). Price per each. $15 

□1802 06502 □6800 ^6809 □VAX 

□8080 ^8086/8088 ^9900 □APPLE II □ECLIPSE 

□ pace □nova □POP-11 ^68000 □ALPHA MICRO 

□ "Starting FORTH" by Brodie. BEST book on FORTH. (Paperback) $16 

□ "Starting FORTH" by Brodie. (Hard Cover) $20 

□ PROCEEDINGS 1980 FORML (FORTH Modification Lab) Conference $25 

□ proceedings 1981 FORML Conference, Both Volumes $^0 
□Volume I, Language Structure $25 
□Volume II, Systems and Applications $25 

□ proceedings 1982 FORML Conference $25 

□ proceedings 1981 FORTH Univ. of Rochester Conference $25 

□ proceedings 1982 FORTH Univ. of Rochester Conference $25 

□ FORTH-79 Standard, a publication of the FORTH Standards Team $15 

□ Kitt Peak Primer, by Stevens. An in-depth self-study primer. $25 

□ byte Magazine Reprints of FORTH articles, 8/80 to ^/81 $ 5 

□ fig T-shirts: □Small □Medium □ Large □ X-Large $10 
□Poster, August 1980 BYTE cover, 16" x 22" $ 3 

□ forth Programmer's Reference Card. If ordered separately, FREE 
send a stamped, addressed envelope. 



FOREIGN 
AIR 

$27 

$18 
$18 



$18 



$20 
$25 
$35 
$55 
$35 
$35 
$35 
$35 
$35 
$18 
$35 
$10 
$12 
$ 5 



TOTAL 



NAME 

ORGANIZATION_ 

ADDRESS 

CITY 

VISA # " 



_MAIL STOP/APT_ 
PHONE ( ) 



STATE 



ZIP 



COUNTRY 



MASTERCARD # 



Expiration Date_ 



(Minimum of $15.00 on charge cards) 



Make check or money order in US Funds on US bank, payable to; FIG. All prices include 
postage. No purchase orders without check. California residents add sales tax, 1/83 

ORDER PHOf^t NUMBER: (415)962-8653 

FORTH INTEREST GROUP «P0 BOX 1105* SAN CARLOS, OA 94070 



FORTH INTEREST GROUP 



P n. 

San 



Hos CA 94070 



1, S M I T n 
"■II ^ U S T n I ^ a TRW 



